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VOORWOORD 


Met de komst van de MSX computers is er nu 
eindelijk een gestandaardiseerd systeem voor 
home-computers op de markt. 

De standaardisatie ís niet alleen belangrijk 
voor de onderlinge uitwisselbaarheid van de 
programma’s, maar ook de hardware is onder- 
ling uitwisselbaar. Bovendien is het MSX 
Systeem zodanig opgebouwd dat het niet alleen 
geschikt is om allerlei spelprogramma’'s mee 
te spelen, maar is uitermate geschikt voor 
allerlei serieuze zaken. In de nabije 
toekomst zal het MSX Systeem een steeds be- 
langrijkere rol gaan spelen in het huis van 
de toekomst. 

Met de collectie programma’s in dit boek wil 
ik dan ook de serieuze gebruiker een aantal 
kant en klare programma’s bieden, waarmee hij 
of zij direct aan de slag kan. De programma's 
zijn allemaal geschreven in MSX BASIC en wer- 
ken met een schermbreedte van “#0 tekens. 
Heeft U geen monitor tot Uw beschikking, dan 
kan het noodzakelijk zijn de breedte op 37 
tekens te zetten, omdat bij een normale TU er 
aan de zijkanten een aantal tekens kunnen af - 
vallen. 

De programma's zijn zodanig geschreven, dat U 
de ingevoerde gegevens zowel op cassette als 
diskette kunt opslaan. 

Er zijn in de programma's geen modules opge- 
nomen om allerlei Foutmeldingen op te vangen, 
die kunt U er desgewenst zelf aan toe- 
voegen. Beslist nodig is het niet, want de 
programma’s werken Foutloos, zoals ze hier in 
dit boek zijn afgedrukt. Als U de instructies 
opvolgt kan er niets mis gaan. De MENU's 
spreken voor zich. 


U zult zich de programma’s snel eigen maken, 
mede door het feit dat U ze zelf intoetst. 
Aldus leert U ook nog het gebruik van 
allerlei routines, dis U misschien in Uw 
eigen programma's kunt toepassen. 

Ik hoop dan ook dat U veel plezier en vooral 
veel gemak van deze programma’s zult hebben. 
Voor eventuele opmerkingen Uwerzijds houd ik 
me gaarne aanbevolen. Een briefje naar de 
uitgever is dan voldoende. 


September 1985, 


Robert-Jan Donkers. 


HUISHOUDBOERJE 


Met dit programma bent U in staat Uw vaste 
uitgaven per maan/kwartaal/ jaar bij te 
houden. Ook Uw inkomsten worden per maand in 
het maandoverzicht bijgehouden. 


Direct na het opstarten van het programma 
kunt U Uw salaris, vakantiegeld en een even- 
tuele dertiende maand invoeren. 

Daarna komt U in het Hoofdmenu. 

Bij het invoeren van de diverse kostenposten 
kunt U elke kostensoort zijn eigen naam 
geven, met dien verstande dat die naam maxi- 
maal 17 tekens lang mag zijn. 

U kunt 50 verschillende kostensoorten 
invoeren. 


Het invoeren van de diverse kosten: 

Bij het invoeren moet U aangeven of deze post 
elke maand of 4* ,5* of 1* per jaar moet 
worden afgerekend. 

Als U bijv. invoert 12x per jaar, dan 
betekent dat er elke maand een bepaald bedrag 
moet worden afgerekend, zoals huur of hypo- 
theek. Direct erna geeft U aan wat dat bedrag 
per maand is. 

Dan wordt er gevraagd of er ook nog een jaar- 
afrekening komt, zoals dat bijv. geldt voor 
gas,electriciteit of water. Is er geen 
afrekening dan toetst U een nul in en is er 
wel een jaarafrekening dan geeft U het bedrag 
en de maand waarin deze afrekening plaats- 
vindt. 

Nadat U alle kosten heeft ingevoerd kunt U 
via de keuze ‘gegevens opslaan’ de gegevens 
wegschrijven naar tape of disk. 


Zijn er bepaalde kosten die niet meer van 
toepassing zijn, dan kunt U die wissen. 

Het programma is zo gebruikersvriendelijk 
mogelijk gehouden, zodat bediening vlot ver- 
loopt. 

Bovendien is het programma van duidelijke 
REM-statements voorzien, zodat U zich snel 
een inzicht over de opbouw van het programma 
kunt verschaffen. 


Eenmaal ingetoetst en op disk of tape gezet 
zult U met veel plezier van het programma ge- 
bruik maken, want nu kunt U elke maand zien 
waar U aan toe bent. 


Mogelijke posten die U kunt gebruiken: 


Huur of Hypotheek 
Gas 

Water 
Electriciteit 
Autoverzekering 
W‚A., Verzekering 
Brandverzekering 
Telefoon 
Ziekenfonds 
Omroepbi jdrage 
Dagblad 

Onroer .goed.bel . 
Weekblad of leesmap 
Abon. MSX Blad 
Hobbyclub Moeder 
etc.etc. 
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19 REM vevenanvernenunvvensennensnen. 


on HUISHOUDBOEKJE and 
**CC)1985 ROBERT-JAN DONKERS** 
„* VERSIE U3.2 VOOR MSX … 


…ensennaacnsecssenncannnnenn.. 
2D REN veenenvenvnvnnenenvennnnvnn... 
hd INITIALISEREN hd 
vannanaanensveevvnvesennsn. 
30 CLEAR 6000 
HO DATA JAN.,FEB.,MRT.,APR.,MEI., JUN. , JU 
L.,AUG.,SEP.,OKT.,NOU., DEC. 
5@ CLS:WIDTH 4@:COLOR 15,1,1:KEYOFF 
5@ DIM NSCS1),MSCS1,12),GECS1),JSCSIJ, IS 
C51),FCS1),SSC12) 
70 ST=-@ 
89 FOR N=1 TO S1 
30 NSCNI="&,,,,.. saar" 
100 NEXT N:GOTO 190 
110 LOCATE @,10:INPUT"Uw Maandsalaris :" 


128 LOCATE @,12:INPUT"In welke maand C1/ 
12) ontvangt U Uw VAKANTIEGELD :";U 
138 LOCATE @,14:INPUT"Hoeveel is dat :"; 


140 LOCATE @,16: INPUT"Ontvangt U ook nog 
een 13e maand : zo ja,geef dan bed 

rag‚,anders @ ";W$ 

15@ IF VALCWE)>@ THEN LOCATE @,18: INPUT” 
In welke maand :"”;W 

158 FOR N=1 TO 12:S5$CN)=KS:NEXT N 

178 LET S$CU)=STRSCCUALCSSCUII+VALCLEIDD 
180 LET S$CW)=STRECCUALCSSCWI)+VALCWEID 
:FOR I=1 TO 12:ST=ST+VALCSSCIDD:NEXT 1 
198 REM … …nnnnnnen …ennsnnsnne 
HOOF DMENU aah 


aancvenenenvansnvsvnnenvnnen. 


208 CLS 


218 PRINT” 


228 PRINT:PRINT 
230 PRINT:PRINT"” 


24@ PRINT:PRINT” 

manne >= 2” 

25@ PRINT:PRINT” Uitgaven invoeren--- 

—- >= 3” 

260 PRINT:PRINT" Uitgaveposten afvoer 

en--—>= 4" 

278 PRINT:PRINT"” Uitgaveposten opslaa 

n= 2m 5" 

288 PRINT:PRINT" Uitgaveposten inleze 

nes zm 6” 

230 PRINT:PRINT” Stoppen met programm 

ln pe 7" 

300 LOCATE @,22:PRINT"” TOETS UW K 

EUZE IN C1/7)” 

318 QS=INKEYS:IF Q$="" THEN 310 

320 IF Q$<”1” OR Q$>"”7" THEN 310 

338 ON VALCQS) GOTO 680,1240, 340, 950, 140 

@,1760,2050 

340 REM nnn 
* UITGAVEPOSTEN INVOEREN ** 
…ensnnsvnnnvvannTnn....... 

35@ IF SSC1)=""” THEN CLS:GOTO 118 

358 CLS 

378 PRINT” UITGAVEPOSTEN INVOEREN”: 

PRINT 

380 PRINT STRINGSC39, ”%”): PRINT 

390 FOR N=1 TO 50:IF NECN)="*,.......... 

. ” THEN 420 

400 NEXT N 

410 PRINT:PRINT"BESTAND IS VOL !!!!"”:FOR 

Q=1 TO 1500:NEXT Q:GOTO 200 

428 INPUT"OMSCHRIJVING :”;QS 


430 IF QS=""” THEN LOCATE @,5:GO0TO 420 
H4D IF LENCQOS)>16 THEN PRINT"OMSCHRIJUVIN 
G TE LANG CMAX.16) !”:LOCATE @,5:GOTO 42 
@ 

450 LL=LENCQS) 

450 MIDSCNSCN),1,LL)=QS 


470 PRINT 

488 INPUT"FREQUENTIE PER JAAR : ";FCN) 
430 IF FCN)>12 THEN PRINT”REKEN BEDRAG O 
M PER MAAND !'!”:GOTO +80 


500 IF FCN)=12 THEN RESTORE:FOR I=1 TO 1 
@:READ AS:MSCN, I)=AS:NEXT I:GOIO 570 

510 PRINT:PRINT"IN DE MAANDCEN): ” 

529 FOR T=1 TO FCN) 

530 INPUT”MAANDNR.C1 T/M 12):”;Q 

540 RESTORE:FOR I=1 TO Q:READ KS:NEXT 1: 
MSCN, TD=KS 

550 PRINT MSCM,T) 

560 NEXT T 

570 PRINT: INPUT"TERMIJNBEDRAG :"”;GSCN) 

580 PRINT: INPUT ”"JAARAFREKENING(O=GEEND : ” 
;‚JSCND 

590 IF VALCJSCN))=@ THEN 630 

600 INPUT"IN WELKE MAAND ? C1 t/m 12) ”; 
I 


610 IF I<1 OR I>12 THEN 600 

528 RESTORE:FOR F=1 TO I:READ AS:NEXT F: 

ISCN)=AS 

630 LOCATE @,22:PRINT” GEGEVENS IN ORD 

E ? (Ja/Nee) n 

640 QS=INKEYS: IF Q$= THEN 540 

650 IF Q$="J" OR Q$="j" THEN 190 

650 IF QS="N" OR Q$="n"” THEN CLS:PRINT” 
UITGAVEPOSTEN INVOEREN":PRINT:PRINT S 

TRINGSC39, "%"):PRINT:GOTO 420 

670 GOTO 640 

589 REN ………evvenenccnvecverennvnenvnn 

“MAANDOVERZICHT * 


…envevevenensnaecvenenennnnnn 


698 H=@:CLS 


700 PRINT” UITGAVEN IN EEN BEPAALDE MAAN 
D”: PRINT 

718 PRINT SIRINGSC339, ”%”): PRINT 

728 INPUT"WELKE MAAND C1 t/m 12) :”;K 
730 IF K<1 OR K>12 THEN 690 

740 RESTORE:FOR N=1 TO K:READ KS:NEXT N 
75@ CLS:LOCATE 16,8: PRINT"MAAND: ”;KS: PRI 
NT USING" SALARIS: #####.##”; VALCSSCKID : 
PRINT 

760 FOR N=1 TO SQ 

770 FOR T=1 TO 12 

788 IF NSCN)="e,,......... ……..” THEN 828 
730 IF MSCN,T)=KS THEN PRINT NSCN);: PRIN 
T USING"F1 ###HH HH”; VALCGECND) : H=HFVALC 
GECN)):GOTO 818 

800 NEXT T 

810 NEXT N 

820 KOP=@ 

830 FOR N=1 TO 50 

840 IF NSCN)="®,,,,....…. ………. "THEN 890 
B5@ IF ISCN)<>K$S THEN 880 

868 IF KOP=@ THEN PRINT: PRINT"JAARAFREKE 
NING: ”:LET KOP=1 

870 PRINT NSCN);:PRINT USING"F1 #####, #4 
”;VALCISCNID : H=H+VAL CIJECND 


880 NEXT N 
8390 PRINT:PRINT STRINGSC33, ”"%"): PRINT 
900 PRINT"TOTAAL ”;:PRINT USING 


PELHHRRRH HR"; H 

919 LOCATE Q,22: PRINT” >M< =MENU >A 

< = ANDERE MAAND” 

920 QS=INKEYS:IF QS=""” THEN 920 

930 IF Q$="M"” OR QS="m” THEN 190 

940 IF Q$="A" OR Q$="a” THEN 680 

85% GOTO 320 

IED REN vennanennenvvvennvesennvnn 
** _UITGAVEPOSTEN AFVOEREN 
vennneuvvnnnerneenennvennennen 


970 CLS 


989 LOCATE @,21:PRINT” >> me 

= MENU” 

930 LOCATE @,3: INPUT”WELKE RUBRIEK WILT 

U AFVOEREN ”;KS 

1000 IF KS="M" OR KS$="m"” THEN 130 

1010 LL=LENCKS):IF LL>16 THEN 970 

1029 LOCATE @,21:PRINT SPACESC38) 

1030 FOR N=1 TO 50:1F KS=MIDSCNSCN),1,LL 

) THEN 1050 

1040 NEXT N 

1059 LOCATE Q,3:PRINT K$;” zit niet in h 

et bestand !”:FOR U=1 TO 1500:NEXT U:GOT 

0 350 

1050 LOCATE @,3: PRINT”OMSCHRIJVING :";NS 

CND 

1070 LOCATE @,21:PRINT” TOETS IN .……...> 

U< =WISSEN _ >M< =MENU" 

1080 QS=INKEYS: IF QS="" THEN 1080 

1090 IF Q$-”n" OR QS=”m” THEN 190 

1100 IF QS="W" OR QS="w" THEN 1120 

1119 GOTO 1080 

1129 REN *venmmnennmnnnn m.n... 
… RUBRIEK WISSEN ** 
vooneonnnennvennennnernnennneen 

1130 FOR T=1 TO S1:IF NSCT)="®, 

„…...” THEN 1150 

1140 NEXT T 

1150 NSCND=NSCT-1):NECT-1D=NSCTI: FCND=FC 

T-1D:FCT-1D=FCTD) 

1160 FOR M=1 TO 12:MSCN,MD=MSCT-1,MD :MSC 

T-1,MD=MSCT,MD:NEXT M 

1170 GSCN)=GSCT-1):GSCT-1)=GECT) : JECNI=J 

SCT-1):JSCT-19=JSCTD 

1189 ISCN)=ISCT-1):ISCT-1)=1SCT) 

1139 LOCATE 4,10:PRINT” DE GEGEVENS ZIJN 

GEWIST 1” 

1200 QS=INKEYS:IF QS=”" THEN 1200 

1219 IF Q$-"M” OR QS="m” THEN 190 

1229 IF QS="W" OR QS="W" THEN 960 

1230 GOTO 1200 


1240 REN **eeuwseenenevnvearnvnonsennen 
… JAARDUERZICH Te* 


venneeenenenssensvenensnenwnnn 


1250 CLS 

1250 PRINT” JAAROVERZICHT” 
1270 PRINT:PRINT USING”JAARSALARIS: #### 
HHR; ST 

1280 TT=-0 

12390 FOR N=1 TO 51 

1300 H-0 

1310 IF NSCN="®, ervarener ” THEN 13 
60 

1320 H=H+CF CN) *VALCGSCNI IJ +UALCIECNID 
1330 PRINT NSCN);:PRINT USING"F1 #####. # 
HH 

1340 TT=TT+H 


1358 NEXT N 

1358 PRINT: PRINT"”JAARTOTAAL ”;:PRIN 
T USING"FINHHHHRH. HH”; TT 

137@ LOCATE @,22:PRINT ” >>> M 
<<< = MENU” 


1380 QS=INKEYS: IF Q$="” THEN 1380 

1390 IF Q$="M” OR Q$=”m” THEN 190 ELSE 1 

380 

1409 REM *…enennunnenvnvurnvennnnennnn 
* _ GEGEVENS OPSLAAN … 
……nveensseensvensvsenvnannn... 

1410 FOR K=1 TO 50: IF NSCK)="®, 

„…” THEN NF=K: GOTO 1430 

1420 NEXT K 

1430 CLS 

1440 PRINT:PRINT"MHET WELKE BAUDRATE WILT 

U NAAR CASSETTE SCHRIJVEN ? (1=1200 , 2 

=2400 BAUD” 

1450 QS=INKEYS: IF Q$="" THEN 1450 

1460 IF Q$=”1” THEN BR=1:GOTO 1490 

1470 IF Q$="2"” THEN BR=2:GOTO 1490 

1480 GOTO 1450 

1490 PRINT:PRINT"GEEF NAAM VAN DE FILE: C 

MAX.6 LETTERS) 


1500 SCREEN, , „BR 

1510 INPUT QS 

1529 SS$="CAS:"+Q$ 

1530 PRINT”ZET RECORDER KLAAR CRECORD+PL 
Aya” 

1540 PRINT"”TOETS DAARNA 'RETURN' VOOR SA 
VEN” 

1550 QS=INKEYS: IF Q$="” THEN 1550 

1560 IF ASCCQS)=13 THEN 1570 ELSE 1550 
1570 OPEN SS$ FOR OUTPUT AS#1 

1589 MOTOR ON 

1590 PRINT#1,NF 

1600 FOR K=1 TO NF 

1610 PRINT#1,FCK) 

1620 PRINT#1,GSCK) 

1630 PRINT#1, ISCK) 

1640 PRINT#1,NSCK) 

1659 NEXT K 

1550 FOR K=1 TO NF:FOR M=1 TO 12 

1570 PRINT#1,MSCK ‚MD 

1589 NEXT M:NEXT K 

1690 FOR K=1 TO 12 

1700 PRINT#1,SSCK) 

1710 NEXT K 

1720 PRINI#1,ST 

1730 CLOSE#1 

1740 MOTOR OFF 

175® GOTO 190 


1760 REN *veeveennvsevsnevvcnuvennvnnv. 


NS INLEZEN 


weeveenvesensnnnnenenn 


1778 CLS 

1788 PRINT:PRINT"GEEF NAAM VAN DE FILE: C 
MAX .BLETTERS) 

1730 INPUT Q$ 

1808 IF LENCQS)>6 THEN 1770 

1818 SS$="CAS: "+QS 

1820 PRINT"ZET RECORDER KLAAR CPLAY)” 
1838 PRINT"TOETS DAARNA 'RETURN' VOOR IN 
LEZEN" 


1840 QOS=INKEYS: IF Q$="" THEN 1840 

185@ IF ASCCQ$)=13 THEN 1860 ELSE 1840 

185% OPEN SS$ FOR INPUT AS#1 

187@ MOTOR ON 

1888 INPUT#1,NF 

189@ FOR K=1 TO NF 

1908 INPUT#1,FCK) 

1310 INPUT#1,GSCK) 

1920 INPUT#1,ISCK) 

1930 INPUT#1,NSCK) 

1942 NEXT K 

1950 FOR K=1 TO NF:FOR M=1 TO 12 

135@ INPUT#1,MSCK ‚MD 

1970 NEXT M:NEXT K 

1980 FOR K=1 TO 12 

1930 INPUT#1,S$CK) 

2008 NEXT K 

2018 INPUT#1,ST 

2028 CLOSE#1 

2030 MOTOR OFF 

2040 GOTO 190 

2059 REN "enenunneeevvnencvennvnevennen 

*« EINDE VAN 'T PROGRAMMA ** 
…anevennversenennnnacnneennn 

2058 CLS 

2078 PRINT”U WILT HET PROGRAMMA BEEINDIG 

EN P" 

2080 PRINT:PRINT"HEEFT U DE GEGEVENS DIE 
U HEEFT INGEVOERD AL OP CASSETT 

E GEZET 7” 

2030 PRINT:PRINT"ALS U DIT AL GEDAAN HEE 

FT OF ALS DAT NIET NODIG IS; TOETS DA 

N 'E'CEINDE)” 

2100 PRINT:PRINT"IN ALLE ANDERE GEVALLEN 
TOETST U ’'M', ZODAT U TERUGKEERT NAAR 
HET HOOFDMENU” 

2118 LOCATE @,22:PRINT"TOETS UW KEUZE IN 
GE’ ge PM)” 

2120 QS=INKEYS:IF Q$=""” THEN 2120 

2130 IF Q$="M" OR Q$="m” THEN 190 

2140 IF Q$="E" OR QS="e” THEN END 

e2e15@ GOTO 2120 


AUTOKEOSTEN 


Met dit programma houdt U per maand de vaste 
en variabele kosten van Uw auto bij. Met de 
waardevermindering van Uw auto wordt geen re- 
kening gehouden. 
In dit programma kunt U de volgende vijf 
kostensoorten invoeren t.w.: 

Belasting, 

Brandstof, 

Onderhoud, 

Verzekering, 

Reparaties. 


Kosten voor lidmaatschap ANWB en WW kunt U 
het beste opnemen onder 'Verzekeringen'. 


Aan het begin van het programma geeft U de 
kilometerstand van het moment dat U met dit 
programma gaat werken. 

Nadat U gedurende een jaar de gegevens heeft 
vastgelegd, geeft U de eindstand. 

Uw MSX berekent dan voor U het aantal gereden 
kilometers, het totaal der kosten en daaruit 
wordt dan de kilometerprijs berekend, zonder 
rekening te houden met de afschrijving, zoals 
reeds is opgemerkt. 

Omdat voor diverse merken de afschrijving 
nogal verschilt is dat moeilijk in dit 
programma in te bouwen. Er zijn nu eenmaal 
bepaalde merken die sterker in prijs dalen 
dan andere merken. Voor de werkelijke af- 
schrijving kunt U het best uitgaan van de 
tabellen, die door de ANWB worden samenge- 
steld. 


In het voorbeeld op de volgende pagina ziet U 
een Fictieve opgave voor een auto van merk X, 
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MAANDOUVERZICHT 


MAAND Februari t/m Februari 
BELASTING £ e4ts.00 £ 245.00 
BRANDSTOF £ 175.00 ge 350.00 
ONDERHOUD £ 175.008 E 175.00 
VERZEKERING: £ 2.02 EF 2.00 
REPERATIES : £ 2.00 £ 96.75 


MAANDTOTAAL: £ 595.0 £ 856.75 


MAANDOUVERZICKHT 


MAAND Juli t/m Juli 

BELAST ING Ed 2.00 £ e4s.00 
BRANDSTOF : £ 175.00 E 1400. 00 
ONDERHOUD : £ 2.0 £ 425.00 
VERZEKERING: £ 875.00 Ld 1085.00 
REPERATIES : £ 125.00 £ 331.75 


MAANDTOTAAL: £ 1175.00 £ 3486 .75 


4 AAROVERZIGCHT 


BELAST ING £ 245.00 
BRANDSTOF Ê 1400.00 
ONDERHOUD : £ 425.00 
VERZEKERING: £ 1085.00 
REPERATIES : £ 331.75 


JAARTOTAAL : £ 3486.75 
GEREDEN Kms.: 8000 


KILOMETERPRIJS: £ @.44 


19 REN »eememmnnn 


20 REM 


Khehehsdhehehaehsdechelsdhehsdeed 


ed … 
“ AUTOKOSTEN head 


© meenmenennmeennnnnzzen Ut 


…annnnenenvenvvnnnvennnnn. 


30 CLS:WIDTH 4O:KEYOFF:COLOR 15,1,1 

40 CLEAR 4000 

5@ DIM MSC12),KSC12,S5),KC12,5),5C5),TC12 
),TTC12) 


59 REN veen 


…ennvenn … 
** MS=MAANDEN ,K=KOSTEN * 
… KS=KOSTENSOORTEN 


asss T=MAANDTOTAAL 
…eenussvovvenenven … 


70 GOSUB 2000 


199 REN *…vaennevsvennnenuneennneen 
ee HOOFDMENU edad 
venneenevenvenvenunveenneen 
118 CLS:PRINT SPCC10); "AUTOKOSTEN" 
128 PRINT SPCC9);” mn. 
130 LOCATE 5,4:PRINT"1. GEGEVENS INVOERE 
N” 
148 LOCATE 5,6:PRINT"2. GEGEVENS TOEVOEG 
EN” 
158 LOCATE 5,8:PRINT"3. GEGEVENS OPSLAAN 
168 LOCATE 5,10:PRINT"4. GEGEVENS INLEZE 
N” 
170 LOCATE S5,12:PRINT"S. GEGEVENS PRINTE 
N CS/P)" 
18% LOCATE 5,14:PRINT"6. JAAROVERZICHT C 
S/P)" 
19@ LOCATE 5,16:PRINT"7. STOPPEN MET PRO 
GRAMMA” 
200 LOCATE B,22:PRINT"TOETS UW KEUZE IN” 
210 QS=INKEYS:IF QS="" THEN 210 
220 IF Q$<”1” OR Q$>"7" THEN 210 


230 


Q=VAL COS) 


240 ON Q GOTO 500,800,1500, 1800, 1000, 120 
02400 
300 GOTO 100 
500 REM …e…. …avnnsnnnnnn 
* GEGEVENS INVOEREN ** 
…nunevennensenensnnennnn. 
510 COLOR 15,4,4:CLS 
520 IF A THEN 570 
530 LOCATE 0,5:PRINT” GEEF DE KM-STAND A 
AN HET BEGIN ” 
540 LOCATE @,7: INPUT”KM-STAND :”;A 
55Q LOCATE O,21:PRINT” TOETS >> RETURN < 
< VOOR VERVOLG” 
560 CLS 
570 PRINT SPCCB); "GEGEVENS INVOEREN” 
580 PRINT SPCC7) ; "=mmmmmmmmmnemennenn" 
590 LOCATE @,4: INPUT"WELKE MAAND 1/12): 
"0 
600 FOR N=1 TO 5 
618 LOCATE @,6+N:PRINT N;”. ”;KSCQ,N) 
520 NEXT N 
630 FOR N=1 TO 5 
640 LOCATE 17,6+N: INPUT B 
652 KCQ,N)=B 
65@ LOCATE 17,6+N:PRINT USING"E #####. #4 
»;KCO,ND 
670 TCQI=TCQI+KCA,ND 


580 NEXT N 
700 LOCATE @,16:PRINT"MAANDTOTAAL ”;MSCQ 
2; ”:";USING"E HEERHR HH"; TCO 


740 LOCATE @,21:PRINT"TOETS >C<=CORRECTI 

E _>M<=MENU " 

750 QS=INKEYS:IF QS="" THEN 750 

768 IF Q$="C" OR Q$="C" THEN TCQ)=@: FOR 

N=1 TO 5:KCQ,N)=D:NEXT N:GOTO 500 

770 IF Q$="M” OR Q$="m” THEN 100 

788 GOTO 750 

BOO REN “ennannne ….. . 
*e GEGEVENS TOEVOEGEN 


…uuwnesvunanensvennnennnnn 


810 COLOR 15,4,4:CLS 

828 PRINT SPCCB); ”GEGEVENS TOEVOEGEN" 
838 PRINT SPCC7);"=menmmenmmuumenmenen ” 
840 LOCATE @,'4: INPUT"VOOR WELKE MAAND C1 
/12):”;Q 

845 FOR N=1 TO 5 

850 LOCATE @,6+N:PRINT N;”. ”;KSCG,ND 
BSS LOCATE 17,5+N:PRINT USING"”F ####H HH 
»;KCO,ND 

B55 LOCATE 23,6+N: INPUT"+/- "”;B 

870 KCG,ND=KCE,ND+B 

875 LOCATE 17,6+N:PRINT USING”E #####. #4 
";KCG,N):LOCATE 239,6+N:PRINT SPCC10) 

B89 TCQ)=TCOI+B 


885 NEXT N 
830 LOCATE @,16:PRINT”MAANDTOTAAL ”;MSCQ 
2;”:”;USING"E HERIK. HH”; TCO 


895 LOCATE @,21:PRINT"TOETS >C<=CORRECTI 
E _>M<=MENU ” 

900 QS=INKEYS:IF Q$="" THEN 900 

910 IF Q$="C" OR Q$="C"” THEN TCQ)=®: FOR 
N=1 TO S:KCG,N)=G:NEXT N:GOTO 800 

928 IF Q$="M" OR Q$="m” THEN 100 

930 GOTO 900 


1009 REM **mevmeneennennevnannn.. 
* GEGEVENS PRINTENCS/P)*e 


1010 COLOR 1,11,11:CLS:FOR N=1 TO 5:SCN) 
=O: NEXT N:ST=0 

1020 PRINT SPCCB); "GEGEVENS PRINTEN” 
1030 PRINT SPCC7) ; "=emmmemenmemenmenn" 
1040 LOCATE 0,4: INPUT"VAN WELKE MAAND WI 
LT U DE GEGEVENS C1/12) :”;Q 

1050 FOR N=1 TO Q 

1055 FOR M=1 TO 5 

1059 SCMI=SCHI+KCN, MD 

1065 NEXT n 

1070 NEXT N 

1075 LOCATE 0,7:PRINT”WILT U DE MAANDGEG 
EVENS :” 


1080 PRINT” >>> OP HET SCHERM (5 
> _oF‚” 
1085 PRINT” >>> NAAR DE PRINIER CP 
zr 
10399 LOCATE @,21:PRINI” TOETS UW KEUZE 
CS of P) IN..” 
1035 QS=INKEYS:IF Q$=”” THEN 10395 

1100 IF Q$-"S" OR Q$="s” THEN O$=”CRT:": 
GOTO 1120 
1105 IF Q$="P" OR Q$="p"” THEN O$="LPT:”: 
GOTO 1120 

1119 GOIO 1095 

1129 CLS 
1130 OPEN OS FOR OUTPUT AS #1 

1135 PRINT#1,SPCCB);"M AANDOUERZ 
ICHT" 
1140 PRINT#1,SPCC7) ; "=== 
1145 PRINI#1, "MAAND ”;MSCO);” 

t/m ”;MSCOD 
1150 PRINT#1, 
1150 PRINI#1,KSC1,1);USING” EF BEHEER #4” 
;KCQ, 1); :PRINI#1,USING" EF HERREN. HH"; S 


1165 PRINT#1,KSC1,2);USING" FE HEHEH. HH" 
;KCQ,2);:PRINT#1,USING” € HEHERH.HH";S 
2 

1170 PRINI#1,KSC1,3);USING” £ HHHHRH #4” 
;KCQ, 3); :PRINT#1,USING" EF HHHRRH.HH”;S 
(3) 

1175 PRINI#1,KSC1, 4);USING” £ BEHEER. HE” 
;KCQ, 4); :PRINT#1,USING” FE HHHRHH.HH";S 
5) 

1180 PRINT#1,KSC1,5);USING" E HRHHHN. HH” 
;KCQ,5);:PRINT#1,USING” — EF HHHHERHH"GS 
C5) 

1181 PRINI#1, 
1182 PRINI#1, "== 


1183 PRINT#1, "MAANDTOTAAL: ”;USING" £ ### 
BEH HBP; TCD; 

1184 FOR N=1 TO 5 

1185 ST-ST+SCN) 

1185 NEXT N 

1187 PRINT#1, USING” _E H#RHHR.HH";ST 
1188 CLOSE#1 

1189 LOCATIE @,P1:PRINI” TOEIS >> M << U 
OOR MENU” 

1190 QS=INKEYS:IF Q$="” THEN 1190 

1195 IF Q$="M"” OR Q$="m” THEN 100 

1196 GOTO 1190 


1209 REM vevnauvennnennsennenren 


* JAAROVERZICHT (S/P) «* 
…acsecvceanvensveennn.. 
1210 COLOR 1,11,11:CLS 
1215 INPUT"WAT IS KM.-EINDSTAND NU: ”;B 
1216 CLS:FOR Q=1 TO 5:SCQ)=O:NEXT Q 
1217 FOR Q=1 TO 12:TTCQ)=O:NEXT Q:JT=O 
1220 PRINT SPCCB);”J AAROUVERZIC 
HT» 
1230 PRINT SPCC7);"= 
1240 LOCATE O,4:PRINT"WILT U HET JAAROVE 
RZICHT :” 
125@ LOCATE O,5:PRINT" >>> OP HET 
SCHERM CS) OF,” 
1250 LOCATE 0,6:PRINT" >>> NAAR DE 
PRINTER CP)” 
1270 LOCATE O,21:PRINT” TOETS UW KEUZE 
CS of P) IN.” 
1280 QS-INKEYS:IF Q$="" THEN 1280 
1290 IF Q$-"S" OR Q$-"s" THEN O$="CRT:": 
GOTO 1320 
1300 IF QS="P" OR Q$-"p" THEN O$="LPT:": 
GOTO 1320 
1310 GOIO 1280 
1320 CLS 
1330 FOR N=1 TO 12 
1340 FOR M=1 TO 5 


1358 SCMI=SCHI+KCN, MD 

1350 NEXT mn 

1378 TICND=TICN)+TCN) 

1380 NEXT N 

1390 FOR N=1 TO 12:JT=JT+TTICND:NEXT N 
1409 OPEN OS FOR OUTPUT AS #1 

1410 PRINT#1,SPCCB);"J AAROUVUERZI 
GHT» 

1420 PRINI#1,SPCC7); "===ememenemmemeenen 


1430 PRINT#L, 


1440 PRINTH1,KSC1,1);USING" BEEN HH 
;‚SC13 
1450 PRINTH#1,KSC1,2);USING" HEK HH 


£ 
£ 
‚Sad 
1450 PRINT#1,KSC1,3);USING" F #HHEHHHN HH" 
;5C3) 
1470 PRINT#1,KSC1,4);USING" F£ 
SCH 
1480 PRINT#I,KSC1,5);USING"” £ 
;SC5) 
1490 PRINT#1, 
1500 des 
1510 "PRINT#L, “JAARTOTAAL :”;USING" £ ### 
HHR HH GIJT 
1520 PRINT#1, "GEREDEN Kms. :”;B-A 
1538 G=JT/CB-A) 
1540 PRINTH1, 
1550 PRINT#1, ”KILOMETERPRIJS:”;USING"” £ 
HRH; G 
155% PRINT#1, "=enenneennnueennmennemenmen 


HERH HH 


HERH HH" 


157@ CLOSE#1 

1589 LOCATE @,21:PRINT"” TOETS >> M << U 
OOR MENU” 

15390 QS=INKEYS:IF Q$="" THEN 1590 

15395 IF Q$="M” OR QS="m” THEN 100 

1536 GOTO 1530 


1597 REN *erenennnnnvennnnannnenn.n 
** GEGEVENS OPSLAAN . 
…ensennannmnnnnnnnn... 

1610 COLOR 4,7,7:CLS 

1620 PRINT SPCC#); "GEGEVENS OPSLAAN” 

1630 PRINT SPCCI) ; "====em=nmmeemennn 

1640 LOCATE @,'t:PRINT"GEGEVENS OPSLAG OP 

DATACASSEIIE ” 

1650 PRINI"PLAAIS EEN LEGE CASSETIE IN R 

ECORDER ” 

1659 PRINT: PRINI"=====mnenneenneeneeeeen 

1670 PRINT:PRINT"ONDER WELKE NAAM WILT U 

DE DATA OP TAPE ZETIEN ? (MAX.5 Letters 

zr 

1580 PRINT: INPUT "NAAN: ”; PS 

1690 PRINT:PRINT"”ZET RECORDER OP OPNEMEN 

EN TOEIS DAARNA >> RETURN <<” 

1700 QS=INKEYS:IF Q$=”” THEN 1700 

1710 IF ASCCQS)<>13 THEN 1700 

1720 OPEN ”CAS:PS” FOR OUTPUT AS#1 

1725 PRINT#1,A 

1730 FOR N=1 TO 12 

1740 FOR M=1 TO 5 

1750 PRINT#1,KCN, MD 

1760 NEXT m 

1765 PRINT#1, TCN) 

1770 NEXT N 

1775 CLOSE#1 

1780 LOCATE @,21:PRINI” TOETS >> M << U 

OOR MENU” 

1785 QS=-INKEYS:IF Q$-”” THEN 1785 

1790 IF Q$-”M" OR Q$-”m"” THEN 100 

1795 GOTO 1785 

1809 REN **……nnennen 
«GEGEVENS INLEZEN - 
…ensassneansnnansenssnnen. 

1810 COLOR 4,7,7:CLS 

1820 PRINT SPCC4);”GEGEVENS INLEZEN” 

1830 PRINT SPCC3); "=== 


1840 LOCATE @,4:PRINT"GEGEVENS INLEZEN U 
AN DATACASSETIE *” 
1850 PRINT”PLAATS DE JUISTE CASSETIE IN 
RECORDER *” 
1858 PRINT: PRINT "e=ennvveeennee vennen 
187@ PRINT:PRINT"ONDER WELKE NAAM WILT U 
DE DATA VAN TAPE INLEZEN? (MAX.6 Letter 
s).” 
1888 PRINT: INPUT "NAAM: ”; PS 
18390 PRINT:PRINT"ZET RECORDER OP PLAY EN 
TOETS DAARNA >> RETURN <<” 
1990 QS=-INKEYS:IF Q$="” THEN 1900 
1910 IF ASCCQS)<>13 THEN 1900 
1320 OPEN "CAS:P$” FOR INPUT AS#1 
1325 INPUT#1,A 
1930 FOR N=1 TO 12 
1840 FOR M=1 TO 5 
1950 INPUT#1,KCN, MD 
195% NEXT Mm 
1365 INPUT#1,TCN) 
1370 NEXT N 
1975 CLOSE#1 
1980 LOCATE @,21:PRINT” TOETS >> M << U 
OOR MENU” 
1985 QS=INKEYS:IF Q$=""” THEN 13985 
19390 IF Q$=”M" OR Q$="m” THEN 100 
1995 GOTO 1985 
2007 REM vrm eee eee ee ee 
baka INITIALISEREN hals 
Kaahnahnethsohhadaathsaheaksehaahacheeheaheeheahahsahsahehaahsedisad 
2010 MSCI)="Januari “”:MSC2)="Februari ” 
:MSCI)="Maart ";MSCH)="April ‚MSC 
5)="Mei ”;MSCE)=" Juni ":MSCTj=" 
Juli hs 
2028 MSCBI="Augustus ":M$CI)="September” 
:M$SC1IO)="Oktober  ”:MSC11)="November ”:M 
SCl2)=”"December ” 
2030 FOR N=1 TO 12 
2040 RESTORE 2200 


2058 FOR M=1 TO 5 
2060 READ AS 
20708 KSCN,M)=AS 


2080 NEXT Mm 

2030 NEXT N 

2108 RETURN 

2208 DATA “BELASTING :”,"”BRANDSTOF :”, 
“ONDERHOUD :”, "VERZEKERING: ”,"REPERATIE 
Ss: 


2400 REM *evvsoensenanvenvennnvenn. 
* PROGRAMMA BEEINDIGEN ** 
…nmennnnenvenenn …….. 

2418 CLS 

2420 PRINT” U WILT HET PROGRAMMA STOPPEN 


2430 LOCATE @,3:PRINT"VOORDAT WE ECHT ST 
OPPEN , WIL IK VAN U WETEN OF U DE GEGE 
VENS AL OPGESLAGEN HEEFT .” 

2440 PRINT:PRINT"ALS ALLES IN ORDE IS TO 
ETST U > E< "” 

2450 PRINT:PRINT"WILT U NIET STOPPEN TOE 
IST U DAN > Mm < ” 

2460 LOCATE @,21:PRINT"” TOETS UW KEUZE C 
E of M) IN...” 

247® QOS=INKEYS: IF Q$="" THEN 2470 

2488 IF Q$="E" OR Q$="e"” THEN END 

2490 IF QS="M" OR Q$="m" THEN 100 

2508 GOTO 2470 


MUSIC-—-0O—-—THEEKR 


Dit is een bestandsprogramma voor grammofoon- 
platen, Musicassettes of Compact Discs. 
Het programma is ideaal voor het ontsluiten 
van zgn. verzamel-LP's. Hoe vaak is het U al 
niet gebeurd, dat U wist dat U een bepaald 
muziekstuk in Uw discotheek had, maar niet 
wist op welke plaat dat ook al weer stond. 
Voordat U nu Uw hele collectie moet doorzoe- 
ken, kunt U met behulp van dit programma snel 
een bepaald stuk localiseren. 
U kunt namelijk elke song of stuk apart in- 
voeren en omdat er dan verwezen wordt naar 
het plaatnummer heeft U desbetreffende song 
snel teruggevonden. Nooit meer zoeken dus. 
Per File kunt U 300 verschillende songs en 
muziekstukken opslaan. Als dat voor Uw 
collectie niet voldoende is, kunt U Uw col- 
lectie ook in genres indelen en dan per genre 
een File aanmaken. 
Bijv.: een File Klassiek, 

POP, 

Gospel, 

Country & Western, 

Folk, 

etc.etc. 
Bij het invoeren van gegevens geeft U de Naam 
van de song, de componist, genre, tijdsduur 
en plaatnummer, 
U kunt op alle ingevoerde gegevens terug- 
zoeken. 
Het programma is volledig menugestuurd en 
werkt met INKEYS voor optimaal bedieningsge- 
mak. Verder wordt elke routine van het 
programma voorafgegaan door een REM-statement 
zodat U een duidelijk inzicht in het 
programma krijgt. 


19 REN **venenenenevenneennevencnnnn 


……MUSIC-0-TKEE Kee 


hed CC) 1985 dd 
ee. ROBERT-JAN DONKERS sd 
mannen dd 


15 CLEAR 59000 

20 DIM NSC300),C$C300),55CIA0),05CIADI,T 
C300) 

30 P=@ 

40 CLS:WIDTH 4@: COLOR 15,4,'4:KEYOFF 

50 PRINT” TERM INA L >> MUZIEKIND 


7@ LOCATE 3,3:PRINT” <1> INVOEREN VAN GE 


BO LOCATE 3,5:PRINT"” <2> ZOEKEN VAN GEGE 
VENS" 

90 LOCATE 3,7:PRINT" <3> WIJZIGEN VAN GE 
GEVENS” 

109 LOCATE 3,39:PRINT" <4#> RAADPLEGEN VAN 
BESTAND” 

118 LOCATE 3,11:PRINT"” <5> BESTAND NAAR 
PRINTER” 

128 LOCATE 3,13:PRINT"” <6> BESTAND VAN T 

APE INLEZEN” 

130 LOCATE 3,15:PRINT"” <7> BESTAND OP TA 

PE VASTLEGGEN" 

140 LOCATE 3,17:PRINT"” <8> NIEUW BESTAND 
CREEREN” 

158 LOCATE 3,19:PRINT” <9> PROGRAMMA EIN 

DIGEN” 

158 PRINT:PRINI”"*"*"*"° aidan nne ki 


178 PRINT” TOETS UW KEUZE IN 
Lim 

189 QS=INKEYS:IF Q$="" THEN 180 

190 IF Q$<”1” OR Q$>”9"” THEN 189 

208 Q=VALCOS) 


218 ON Q GOTO 300,500,700,900,1100,1300, 
1500,1700, 1300 
228 GOTO 188 


300 REN *eeeneennensennenvnvenvvnnnnn 


his GEGEVENS INVOEREN kel 
veevnecnosenvenveevcrvvenenere 
318 CLS:PRINT” INVOEREN VAN 
GEGEVENS” 
Te RENEE EE Ke EEA DA AAT died 


wgn ”;PRINI:P=P+1 

330 IF P>30@ THEN PRINT”B E STAND I 

S VOL !!”:FOR R=1 TO 1000:NEXT R:GOTO 40 

340 LOCATE @, 4: PRINT"VOLGNo: ”; 

350 LOCATE @,6: INPUT"PLAATNo: 

360 IF LENCNSCP))>3 THEN 350 

370 LOCATE @,7: INPUT "COMPONIST : 

380 LOCATE @,8: INPUT"MUZIEKSTUK: ”; 

339@ LOCATE @,10: INPUT"GENRE: ” ;OSCPD 

400 LOCATE @,11:PRINI"T I JD :” 

410 INPUT"TIJD IN MIN,SEC:";X,Y 

420 IF Y=@ THEN TCP)=X:GOTO 450 

430 Z=INTCY/6):IF Z<CY/6) THEN Z=2+1 

440 TCP)=X+2/10 

450 LOCATE @,20:PRINT"TOETS >RETURN< VOO 

R VOLGENDE TITEL TOETS >M< VOOR 

MENU” 

450 QS=INKEYS:IF Q$="" THEN 4650 

470 IF ASCCQ$)=13 THEN 300 

488 IF Q$="M"THEN 4O@ 

50D REM vennen 
en ZOEKEN VAN GEGEVENS me 


vannvenvvenevvevencnvnenvnn. 


518 CLS: PRINT” 20E KEN VAN GEGEVENS 


530 LOCATE @,4:PRINT"” ZOEKMOGELIJKHEDEN: 
TOETS UW KEUZE IN.” 

540 LOCATE @Q,6:PRINT” <1> OP PLAATno: ” 
SS@ LOCATE @,8:PRINT” <2> OP COMPONIST” 


S55@ LOCATE @,10:PRINT"” <3> OP MUZIEKSTUK 


570 LOCATE @,12:PRINI” <#> OP GENRE” 

580 LOCATE O,14:PRINI” <5> OP TĲD” 

590 LOCATE @,16:PRINT"” <6> OP COMPONIST+ 

MUZIEKSTUK” 

600 LOCATE @,18:PRINT” <7> TERUG NAAR HO 

OFDMENU” 

610 QS=INKEYS:IF Q$="" THEN 610 

620 IF Q$<”1” OR QS>”7" THEN 610 

5309 Q=VALCQS) 

640 ON Q GOTO 2000,2100,2200,2300,2400,2 

500, 40 

JOD REN v…nnnvervevenevevvvnnnnnonT 
* WIJZIGEN VAN GEGEVENS ** 
…. …ennannvnennn.n... ….. 

710 CLS:PRINT"W I J Z 1 G EN VAN GEGEU 

ENS” 

TED: PRINDS EEKEREN AAE KERDI 

reinen ”; PRINT 

730 PRINT"ALLE GEGEVENS MOETEN OPNIEUW W 

ORDEN INGEVULD. ” 

740 INPUT"WELK VOLGNUMMER MOET GEWIJZIGD 

WORDEN :”;Q 

750 IF Q>P THEN PRINT"DIT NUMMER ZIT NIE 


T IN HET BESTAND !!"”:FOR N=1 TO 500:NEXT 
N:GOTO 710 
768 Z$="ER STAAT :"”:Y$="WIJZIGEN IN ” 


765 PRINI”PLAATNUMME R:” 
770 PRINT 2$;N$CQ) 

780 PRINT YS$;: INPUT NSCQ) 

785 PRINI"C OMPONIST :"” 
730 PRINT 2$;C$CQ) 

800 PRINT YS$;:INPUT C$CQ) 

805 PRINT"M U 2 IEKSTUK:” 
B12 PRINT Z$;SSCQ) 

829 PRINT YS$;:INPUT S$CQ) 

830 PRINT 2$;0SCQ) 

835 PRINI”GE NRE :” 

842 PRINT Y$;: INPUT OSCQ) 


858 PRINT 2$;TCQ) 

B55 PRINT"T IJD :” 

850 PRINT YS$;:INPUT TCQ) 

878 PRINI:PRINT"NOG MEER WIJZIGEN < J/N 

> 

880 QS=INKEYS:IF Q$="" THEN 880 

885 IF QS="J"” OR Q$="j" THEN 700 

899 IF QS="N" OR Q$=”n” THEN 4@ 

895 GOTO 880 

JIP REN vevennnnnennennennnnnnmnnw.n.. 
* RAADPLEGEN VAN BESTAND ** 
venvesveevvecnvvvvenvernn.n.n 

310 CLS:PRINI”RA ADP LEGE N VAN H 

ET BESTAND” 

320 PRINT”IN HET BESTAND ZIJN ";P;” STUK 

KEN ”:PRINT"OPGENOMEN.”:FOR N=1 TO 500: 

NEXT N 

930 FOR I=1 TO P 

340 GOSUB 1000 

950 NEXT I 

350 PRINT:PRINT"EINDE VAN BESTAND 


370 PRINT” TOETS >> RETURN << VOOR MENU” 
980 QS=INKEYS:IF Q$=""” THEN 380 

985 IF ASCCQS)=13 THEN 4@ 

930 GOTO S80 

1800 CLS: PRINT"VOLGno: ”; I 

1205 PRINT:PRINT"” PLAATno:”;NSCID 

1818 PRINT"”COMPONIST: ”;CSCI) 


1020 PRINT” ;SSCIJ 

1039 PRINT” 3 

1040 PRINT” 

1050 LOCATE @,17:PRINT"TOETS >>RETURN<< 
VOOR VERVOLG": PRINT” >M< IS TERUG NAA 


R HOOFDMENU” 

105% QS=INKEYS:IF Q$="" THEN 10650 
1870 IF ASCCQS)=13 THEN RETURN 
1080 IF Q$="M" OR QS="m” THEN 4O 
10390 GOTO 1060 


11979 REM**nnenennnnenseenvsvnnennnnnnn 


hd PRINTROUTINE … 
…unanesssnnnnen........ 
1110 CLS:PRINI” PR INTE N VAN BESTA 
ND” 
1120 PRINT:PRINT"ZET UW PRINTER KLAAR EN 
TOETS DAARNA >> RETURN << VOOR PRIN 


IEN OF >M<= MENU” 

1130 QS=INKEYS:IF Q$="” THEN 1130 
1140 IF ASCCQ$)=13 THEN 1200 

1150 IF Q$="M"” OR Q$="m” THEN 4@ 
115@ GOTO 1130 

1208 LPRINT"MUZIEK INDEX” 

1205 LPRINT 

1218 FOR I=1 TO P 


1220 LPRINT"VOLGNUMMER :";1 

1238 LPRINT"PLAATNUMMER :";NSCID 
1240 LPRINT"COMPONIST :”;C$CID 
125@ LPRINT"MUZIEKSTUK :”;SSCID 
1250 LPRINT"GENRE :“;0SCID 


1278 LPRINT"TIJD IN MIN.:"”;TCID 
1288 LPRINT 
1290 NEXT I 
1235 
1300 


« GEGEVENS van TAPE INLEZEN** 
Khehnaheetdhsoheaechenhedieehechechehehschehneheheedhehedhecheechseheaed 
1310 CLS:PRINT"WELKE FILE WILT U INLEZEN 
?7?": INPUT F$:IF LENCFS)>6 THEN 1310 
1320 PRINT:PRINT"ZET UW RECORDER KLAAR E 
N PLAATS JUISTE CASSETTE IN DE RECORDER 
EN ht 
133@ PRINT:PRINT"TOETS DAARNA >> RETURN 
<< OM<e= MENU)” 
1340 QS=INKEYS: IF Q$="" THEN 1340 
1350 IF ASCCQS)=13 THEN 1400 
1350 IF Q$="M"” OR Q$="m” THEN 4@ 
1370 GOTO 1340 
1400 OPEN"CAS:FS"” FOR INPUT AS#1 
1410 INPUT#1,P 


36 


1420 FOR I=1 TO P 

1430 INPUT#1,NSCID 

1442 INPUT#1,CSCID 

1458 INPUT#1,SSCID 

1450 INPUTH1,OSCI) 

1478 INPUT#1,TCID 

1480 NEXT I 

14399 GOTO 4 

1509 REM**evaneunnsensvvunnanensveneen 
… GEGEVENS OP TAPE .n 
bela VASTLEGGEN 


vuennvevcveenvennne 

1518 CLS:PRINT"ONDER WELKE NAAM WILT U D 

E FILE OPSLAAN”: INPUT FS:IF LENCFS)>6 TH 

EN 1510 

1520 PRINI:PRINT"ZET UW RECORDER KLAAR E 

N PLAATS JUISTE CASSETTE IN DE RECORDER 

Le 

1538 PRINT:PRINT"TOETS DAARNA >> RETURN 

<< Ome MENU)" 

1540 QS=INKEYS:IF QS="" THEN 1540 

155@ IF ASCCQ$)=13 THEN 1600 

1560 IF Q$="M" OR QS="m” THEN 40 

1578 GOTO 1540 

1500 OPEN"CAS:F$” FOR OUTPUT AS#1 

1610 PRINT#1,P 

1620 FOR I=1 TO P 

1630 PRINT#1,NSCID 

1640 PRINT#1,CSCID 

1559 PRINT#1,S5SCI) 

1550 PRINT#1,0SCI) 

1570 PRINT#1,TCID 

1580 NEXT I 

1639 GOTO 4@ 

1700 REM*ennmennnnnnnennnnnnnnnnnnn….nn 
**BEGINNEN MET NIEUW BESTAND** 
Ehehhhkhhhsehehehehsehaehehehaeheehaehehhehsehedeeheehsdaehed 

1718 CLS:PRINT"BEGINNEN MET NIEUW 

BESTAND” 


1720 PRINT" "err Ne eme 

1730 PRINT:PRINT"ALS U HET HUIDIGE BESTA 

ND NIET MEER - < NODIG HEEFT, OF U HEEFT 

HET REEDS.OP CASSETTE VASTGELEGD, DA 

N TOEIST U ’ >> RETURN << ‚ANDERS > 

M< VOOR MENU.” 

1740 QS=INKEYS:IF Q$="" THEN 1740 

1758 IF ASCCGS>-13 THEN RUN 

1750 IF Q$="M" OR Q$="m” THEN 4@ 

1770 GOTO 1740 

1999 REM*rnuwwenwuuwvnunnnnvnnn nennen. 
“* EINDIGEN VAN PROGRAMMA en 
vannnnennmannsennnnnnnnnnnnm…nn 

1318 CLS:PRINT"”PROGRAMMA WORDT BEEINDIGD 

rr 

1320 PRINT”HEEFT U DE GEGEVENS AL OP TAP 

E GEZET 7” 

1930 PRINI:PRINT"20 JA, DAN TOETST U RET 

URN !” 

1940 PRINI:PRINT”Z0 NIET, TOETS DAN >M< 

VOOR TERUGKEER / ) NAAR HOOFDMENU 1” 

1950 QS=INKEYS:IF Q$="" THEN 1950 

1959 IF ASCCQS)=13 THEN END 

1970 IF Q$=”M"” THEN 40 

1980 GOTO 13959 

2009 REN*ennnnnn mennen nnn nnn 
* ZOEKEN VAN GEGEVENS IN me 
ld HET TOTALE BESTAND 


…nnenenanwanm......... 
2019 REM*enemenenenannsenssennnnnnmn.n 
* ZOEKEN OP PLAATNUMMER … 
… …esntensveranneenn.. 
2029 CLS:PRINI”Z 0 EK EN OP PLAATNUMM 
ER” 
2030 PRINT: INPUT"WELK PLAATNUMMER: ”; 25 
2040 FOR I=1 TO P 
2050 IF NSCI)=Z$ THEN GOSUB 1000 
2050 NEXT 1 
2970 GOTO 3000 


2418 
2420 


REM*venunsnansnnnsvansnnnnsnannen 


CLS:PRINI”Z O E KE N OP COMPONIST 
PRINT: INPUT"GEEF NAAM COMPONIST: ";2Z 


FOR I=1 TO P 

IF C$CI)=2$ THEN GOSUB 1000 

NEXT I 

GOTO 3000 

REM*vvensenscennvervsevanvnunenen 
“ ZOEKEN OP TUK akal 


veveeveunnenssenvaneunvnesnenn 


CLS:PRINT"”"Z2 O E KEN OP MUZIEKSTU 


PRINT: INPUT"GEEF NAAM MUZIEKSTUK: ”; 


FOR I=1 TO P 

IF S$CI)=25 THEN GOSUB 1000 
NEXT I 

GOTO 3000 


REM» eld dad bedeesd 


hd ZOEKEN OP GENRE … 
…euvessessensessensnnnnnnnen.. 

CLS:PRINI"Z O E K EN OP GENRE” 

PRINT: INPUT"WELK GENRE: ";Z$ 

FOR I=1 TO P 

IF OSCI)=2$ THEN GOSUB 1000 

NEXT I 


GOTO 3000 

REM*vwennnonvannvanvennseencvvenn 
keke ZOEKEN OP TĲD wdd 
- … nnn hd 


CLS:PRINT"2 O0 E KEN OP TĲD” 
PRINT:PRINT"DE TE ZOEKEN TIJD WORDT 


BEGRENSD DOOR EEN MINIMUM EN EEN MAXI 


MUM, DEZE MIN. EN MAX. MOET 
U OPGEVEN.” 
2438 PRINT: INPUT"MAX.TIJD IN MINUTEN: ”;M 


A 


244@ INPUT”MIN.TIJD IN MINUTEN: ”;MI 
2450 FOR I=1 TO P 
2450 IF TCI)=<MA AND TCI)>=MI THEN GOSUB 
1000 
2470 NEXT 1 
2480 GOTO 3000 
2500 RENT ennn 
oen ZOEKEN OP me 
* COMPONIST + MUZIEKSTUK bli 
K edeehaehehaeehedhsehehehehseheheehehesedeeheehehsehehsdeehaeehiehehed 
251@ CLS:PRINT”Z O0 E KE N OP COMPONIST 
+ MUZIEKSTUK” 
2528 PRINT: INPUT"GEEF NAAM COMPONIST: ”;2Z 
5 
2525 INPUT”GEEF NAAM MUZIEKSTUK: ”; YS 
2530 FOR I=1 TO P 
2540 IF CSCI)=25 AND S$(I)=YS THEN GOSUB 
1000 
2550 NEXT I 
3000 PRINT:PRINT"EINDE BESTAND |” 
3010 PRINT"NOG MEER ZOEKEN P < J/N > * 
3020 QS=INKEYS:IF Q$="" THEN 3020 
3030 IF Q$="J" OR Q5="j" THEN 500 
3040 IF QS="N" OR QS="n” THEN 40 
3058 GOTO 3020 
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LEDPDENADMINISTRATIE 


Dit programma is ideaal voor allerlei vereni 
gingen die de registratie van hun leden wil- 
len vereenvoudigen. 


Het programma wordt volledig menu-gestuurd, 
Het hoofdmenu staat boven aan het scherm en 
geeft U de volgende mogelijkheden: 


CURSOR ’>' vooruit ‘bladeren’ door het be- 
stand. 
CURSOR '<’ terug ‘bladeren’ in het bestand. 


TOETS 'V' Veranderen van gegevens van des- 
betreffend lid. Alles opnieuw in- 
voeren. 

TOETS 'L’ Nieuw lid. U krijgt automatisch 
het volgende lidnummer en U kunt 
daarna de gegevens invullen. 

TOETS ’N’ Op lidnummer zoeken. 

De cursor springt naar de positie 

direct achter 'LIDNo:'’. U geeft 

hier een lidnummer en direct daar- 
na verschijnen de gegevens van 

dat lid op het scherm, als dat 

nummer tenminste bestaat. 

TOETS 'P’ Printen. Hier komt U in de print- 
routine, U heeft 2 mogelijkheden: 
De gegevens voluit printen of al- 
leen een adresstrook. 

Tevens bepaalt U aan de hand van 
de index welke gegevens geprint 
moeten worden. 


TOETS 'S' Het ledenbestand op tape of disk 
zetten. 

TOETS 'T’ Het ledenbestand van tape of disk 
inlezen. 


40 


Het gebruik van de INDEX. 


U heeft twee indexmogelijkheden tot Uw be- 
schikking, waarmee U een onderscheidt kunt 
maken tussen de diverse leden. 


Voor een sportvereniging zouden de volgende 
indexen gebruikt kunnen worden: 


Index 1 wordt gebruikt voor het soort lid: 
dit kan zijn: DJR = Dames Junior lid 
DSR = Dames Senior lid 
HJR = Heren Junior lid 
HSR = Heren Senior lid 

VET = Veteraan lid 

DON = Donateur 

BES = Bestuurslid 


Index 2 kan gebruikt worden om aan te geven 
in welke maand het lidmaatschap moet worden 
voldaan.CAls dit per jaar geschiedt,bij maan- 
delijkse contributie is dit overbodig). 

Bijv. JAN,APR,AUG etc.etc. of om aan te geven 
in welk jaar het lidmaatschap is ingegaan; 
bijv. 83,84,85 etc.etc. 


Door nu consequent de door U vastgestelde in- 
dexen te gebruiken kunt U op eenvoudige wijze 
adreslabels aanmaken voor bijvoorbeeld het 
versturen van invitaties voor een clubavond. 
Eenmaal per jaar een brief verzenden aan de 
donateurs is nu een koud kunstje. 

De mogelijkheden zijn legio en ik wens U dan 
ook veel gemak van dit programma. 


Bil 


18 


ea 
30 
40 
50 
50 
70 
80 
30 


REM ……vevvenvnenevsnvenensennenen 


“n LEDENADMINISTRATIE an 
…* MET OPTIE VOOR PRINTEN *e 
hd VAN ADRESLABELS …. 
venunvseeensvvevvennenvenenne 
WIDTHK 4@:CLS:COLOR 15,4,4:KEYOFF 
CLEAR 110909:M=108: DIN DECM) 
Z5=SPACESCHO) 
YS$=-SPACESC25) 
LOCATE @,13:PRINT"NIEUWE DATA: ” 
LOCATE @,21: INPUT"VANAF LID No: ”;I 
IF I=@ THEN 70 
Fal:N=l:Ce8: II=I 


1000 REN *……nvecveenscccvvevnwenvvennn 


bd HOOFDMENU ne 


…annnnenen 


…… 


1818 CLS:COLOR 1,19,10 


1828 LOCATE 1,5:PRINT"”LIDNo: 
1821 LOCATE 1,7:PRINT"Naam : 
1822 LOCATE 
1823 LOCATE 
1924 LOCATE 
1925 LOCATE 
1826 LOCATE 


1,9:PRINT"”Tel. 


1827 LOCATE 6,15:PRINT": 

1828 LOCATE @,17:PRINT"Index1:” 

1023 LOCATE @,18:PRINT”Indexe: ” 

2008 LOCATE @,0:PRINT"MENU: '> '=VOORUIT Z 


OEKEN '< "=TERUG mammem "U '=VERANDERE 
N "L'=NIEUW LID 'N'=OP NUMMER 
ZOEKEN 'P'=PRINTEN 'S'=BESTAND S 
AVEN 'T'=INLEZEN" 


2018 PRINT SITRINGSC39,"=") 

2820 GOSUB 8000 

2030 LOCATE @,0:PRINT 2$;2$;2$;2$;2$ 
2040 IF QS="N" THEN 2500 

2050 IF ASCCOS)=23 THEN 3100 

2050 IF ASCCQS)-28 THEN 3200 


2070 IF Q$="U” THEN 4000 

2080 IF Q$="L” THEN 4100 

2090 IF QS="P" THEN 5000 

2100 IF QS=”S” THEN 6000 

2110 IF QS="T" THEN 7000 

2120 GOTO 2000 

esea REM …eneeenssesevnecsnnenevenvven.. 

* _ ZOEKEN OP LIDNUMMER … 
…euueensunavanvsansnTeenvenven 

2505 IF DSC1)="" THEN LOCATIE 1,20:PRINI” 
BESTAND IS LEEG !”:FOR L=1 TO 1000:NEXT 
L:LOCATE 1,20:PRINT Z2$:GOTO 2000 

2510 LOCATE 8,5: INPUT 1 

3000 IF I<F OR I>=N THEN FOR L=7 TO 18:L 
OCATE 7,L:PRINI YS:NEXT L:GOTO 2000 

3010 C=1 

30209 GOTO 3300 

3100 IF DSC1)="” THEN LOCATE 1,20:PRINT"” 
BESTAND IS LEEG |”:FOR L=1 TO 1000:NEXT 
L:LOCATE 1,20:PRINT 2$:GOTO 2000 

3105 IF C>=N-1 THEN 2000 

3110 C=C+1 

3129 GOTO 3300 

3200 IF DSC1)="" THEN LOCATE 1,20:PRINT" 
BESTAND IS LEEG !”:FOR L=1 TO 1000:NEXT 
L:LOCATE 1,20:PRINT 2$:GOTO 2000 

3205 IF C<=F THEN 2000 

3210 C=C-1 

3300 FOR A= 5 TO 18 

3310 LOCATE 7,A:PRINT YS 

3320 NEXT A 

3330 LOCATE 8,5:PRINT C 

3340 P=7 

3350 FOR L=7 TO 15 

3360 IF L-B OR L=10 THEN L=L+1 

3370 LOCATE 8,L: 

3380 IF P>100 TKEN 3500 

3390 Q=ASCCHIDSCDSCC+1-F),P, 19) 

3400 P=P+1 

3410 IF Q>127 THEN 3440 
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3420 PRINT CHRSCO) ; 

3430 GOTO 3380 

3440 PRINT CHR$CQ-128); 

3450 NEXT L 

3500 LOCATE 8,17:PRINT LEFTSCDSCC+1-F),3 


3510 LOCATE 8,18:PRINT MIDSCDSCC+1-F), 4, 


3529 GOTO 2000 

HOZD REN *vennnwnnnnmnnnnnnnmn….…….…... 
*« _ GEGEVENS VERANDEREN  ** 
…esssnvn …anuuuuwsennven.. 

4010 IF C<F OR C>=N THEN 2000 

4020 GOTO 4200 

4100 REM …nanenensennenennensnnn 
… GEGEVENS NIEUW LID ** 
Khaahnaheaadathsaheaseeheehehsahsahsahseheehseheednahsaksehsheehshsohsohsel 

4105 IF N<F+M THEN 4130 

4110 LOCATE @,21:PRINT” FILE IS VOL 

REEK 

H115 FOR Q=1 TO 1000:NEXT Q:LOCATE O,21: 

PRINT Z$ 

4120 GOTO 2000 

4130 C=N 

140 N=N+1 

4150 FOR A=5 TO 18 

4150 LOCAIE 7,A:PRINT YS 

4170 NEXT A 

H200 LOCATE O,21:PRINT Z$:LOCATE 8,5: PRI 

NT C 

H210 P=7:DSCC+1-F)=” id 

4220 FOR L=7 TO 15 

4230 IF L=8 OR L=10 THEN L=L+1 

4240 LOCATE 7,L: 

4250 JS=YS:15="" 

4250 IF P>100 THEN 4370 

H270 INPUT IS 

4280 IF LENCIS)>24 THEN IS=LEFISCIS, 24) 

H230 IF IS="” THEN I$=" ” 

H300 K=LENCIS) 
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4310 IF P+K>100 THEN IS=LEFISCIS,101-P) 

4320 K=LENCIS) 

4330 MIDSCJS,2,K+1)=15 

4335 CS=MIDSCIS,K, 1) 

4340 MIDSCIS,K, 19=CHRSCASCCCS) +128) 

4350 DSCC+1-F)=DSCC+1-F)+IS 

4360 P=P+K 

4370 LOCATIE 7,L:PRINT JS 

4380 NEXT L 

4400 LOCATE 7,17:INPUT IS 

4420 MIDSCDSCC+1-F),1,3)=1I$ 

4430 LOCATE 7,18: INPUT IS 

HUUD MIDSCDSCC+1-F), 4, 3)=15 

4450 GOTO 2000 

5000 REM …ensannansn.. 
*« PRINTEN MET DE OPTIE Om 
* ADRESLABELS AF TE DRUKKEN** 
…evvcncncvcsvvcnvenvvnvennnn.n. 

5005 IF DSC1)="” THEN LOCATE 1,20:PRINT"” 

BESTAND IS LEEG |”:FOR L=1 TO 1000:NEXT 

L:LOCATE 1,20:PRINT 2$:GOTO 2000 

5810 CLS:COLOR 15,4,4 

5020 PRINT"AAN WELKE INDEX VOORWAARDEN M 

OETEN DE ADRESSEN VOLDOEN 7” 

5030 PRINT STRINGSC33, ”-"”) 

5040 PRINI"VERSTREK DE VOLGENDE GEGEVENS 


5050 LOCATE @,5: INPUT"INDEX1:"; IS 
5055 X$=-I$ 

5060 IF LENCX$)>3 THEN 5050 

5065 IF I$<>”” THEN IS=X$ 

507@ LOCATE 8,5:PRINT I$ 

5088 LOCATE @,7: INPUT"INDEX2:”";J$ 
5085 X$-J$ 

5030 IF LENCX$)>3 THEN 5080 

5035 IF JS<>”” THEN JS=X$ 

5108 LOCATE 8,7:PRINT JS 

5118 LOCATE @,3: INPUT"VOLUIT CJ/N) (J=VO 
LLEDIG N=ADRESLABELD: ”";K$ 

5128 IF K$="" THEN S110 


5130 IF LENCKS)>1 THEN KS=LEFTSCKS,1) 
5140 IF KS="J" OR K$<>"j” OR KS="N" OR K 
$="n" THEN 5200 ELSE 5110 

5200 LPRINT 

5218 FOR C=F TO N-1 

5220 LS-DSCC-F+1) 

5230 IF IS<>"”"” AND IS<>LEFTSCLS,3) THEN 
5390 

524@ IF J$<>"" AND JS<>MIDSCLS, 4,3) THEN 


5330 
5250 IF KS="N" THEN 5280 

5256® LPRINT C;”--";LEFTSCL$,6);"--" 
5280 P=7 


5230 FOR L=1 TO 7 

5300 IF KS="N” AND L=2 THEN 5380 

5305 IF P>100 THEN 5370 

5319 Q=ASCCHIDSCLS,P, 19) 

5315 P=P+1 

5320 IF Q>127 THEN 5360 

5330 LPRINT CHRSCO); 

5340 GOTO 5310 

5360 LPRINT CHRSCQ-128); 

5370 LPRINT 

5380 NEXT L 

5390 NEXT C 

5400 LPRINT 

5410 GOTO 1000 

6000 REM *essevssuscsssesecescnonvenenen 
. BESTAND OPSLAAN … 
* OP TAPE OF DISKETTE 
……ascennennen …ensensnenen 

6010 CLS:COLOR 15,4, 4 

5020 PRINT:PRINT”WILT U OPSLAAN OP TAPE 

OF DISKETIE 7” 

6030 PRINT: INPUI”CT) of CD) ”;QS 

6240 PRINT: PRINT 

605@ INPUT"ONDER WELKE NAAM MOET DE FILE 

WORDEN OPGESLAGEN: ”;K$ 

6060 IF LENCKS)>6 THEN GOTO 6010 

6280 IF Q$="T” THEN GOTO 6100 

6985 IF Q$="D" THEN GOTO 6200 

6030 GOTO 6010 


46 


5122 MOTOR ON 

6118 OPEN "CAS:K$” FOR OUTPUT AS#1 

6128 GOTO 6300 

5200 OPEN K$ FOR OUTPUT AS#1 

5300 NN=N-II+1 

6305 PRINT#1, II 

6306 PRINT#1,NN 

5318 FOR Y=1 TO NN 

56328 PRINT #1,DSCY) 

5330 NEXT Y 

6340 CLOSE #1 

6350 IF Q$="T" THEN MOTOR OFF 

563568 GOTO 1000 

7000 REN **enveennnnnannnensnnnnnenn.. 
BESTAND INLEZEN … 
KETTE beds 


vevenanenen 


7018 CLS:COLOR 15,4,4 

7028 PRINT:PRINT"WILT U INLEZEN VAN TAPE 
OF DISKETTE P” 

7038 PRINT: INPUT”CT) of (D) "”;Q$ 

7040 PRINT:PRINT 

7058 INPUT"ONDER WELKE NAAM MOET DE FILE 
WORDEN INGELEZEN: ”;K$ 

7060 IF LENCKS)>6 THEN GOTO 7010 
7088 IF Q$="T" THEN GOTO 7100 

7085 IF Q$="D" THEN GOTO 7200 
7038 GOTO 7010 

7108 MOTOR ON 

7118 OPEN "CAS:KS"” FOR INPUT AS#1 
7128 GOTO 7300 

7200 OPEN K$ FOR INPUT AS#1 

7300 INPUT#1,II 

7305 INPUT#1,NN 

7318 FOR Y=1 TO NN 

7328 INPUT #1,DSCY) 

7330 NEXT Y 

7340 CLOSE #1 

7350 IF QS="T” THEN MOTOR OFF 

73658 N=NN+II-1 

7370 GOTO 1000 

8000 QS-INKEYS: IF Q$="" THEN 8000 
8018 RETURN 


OMREKENEN ANGELSAKSISCH NAAR METRIEK STELSEL 


Als U voor beroep of hobby ook engelstalige 
literatuur leest, bent U waarschijnlijk al 
dikwijls geconfronteerd met het angelsaksisch 
stelsel van maten en gewichten. 

Vaak kunt U door ervaring wel een benadering 
geven van de maten en gewichten in het ons 
bekende metrieke stelsel. Maar een nauwkeuri- 
ge berekening is vaak een hele klus. 

Vooral voor vertaalwerk uit het engels van 
bijv.technische literatuur is 't noodzakelijk 
ook een zo exact mogelijke omrekening te 
maken van de angelsaksische maten. 

Voor lezers van dit boek, die met dit soort 
problemen geconfronteerd worden is het een 
uitkomst nu dit programma bij de hand te heb- 
ben. 

Het Programma is volledig menugestuurd en 
daardoor eenvoudig te bedienen. 

De diverse REM-statements verschaffen U snel 
een inzicht in de opbouw van het programma. 

U kunt met dit programma zowel omrekenen van 
Agelsaksische- naar Metrieke maten als ook 
van Metrieke- naar Angelsaksische maten. 


U kunt Lengtematen, 
Oppervlakten, 
Gewichten, 
Inhoudsmaten, 
Kubieke inhoudsmaten 
en Temperaturen omrekenen. 


Zoals U in de listing kunt zien is er veelvul- 
dig gebruik gemaakt van 'FIX’.Dit is gedaan 

om snel met de restwaarden van een berekening 

verder te kunnen rekenen. 

Voor de Angelsaksische maten is voor de dui- 

delijkheid de Engelse benaming aangehouden. 

Ik hoop dat U zich met dit programma veel re- 

kenwerk zult besparen. 


1@ REM …ennvanenenvsenennenn.... 
.. OMREKENEN VAN MATEN, a 
„ GEWICHTEN EN INHOUDSMATEN** 
**(C)1385 Robert-Jan Donkers** 
bain voor MSX Computers head 
…asvaavnacvvsvanvnnenTn.... 

20 SCREEN @:WIDTH 4@:COLOR 15,4, 4: KEYOFF 

30 CLEAR 500 

HO DIM ASCI),ACII,BCI),CCH),KCI) 


199 REM vmmmnnennnnnnnnnnnnnne 


hall HOOFDMENU besel 


waannnansnunnanvnennnnnnnm.... 


118 CLS 

128 PRINT "OMREKEN-PROGRAMMA” ; SPCC19) ; "MS 
X”:PRINT STRINGSC39, "-"): PRINT 

138 PRINT:PRINT:PRINT SPCC16);"M EN U”: 
PRINT SPCC15) ; "== 


140 LOCATE 2,39:PRINT"C1J.....METRIEK NAA 
R ANGELSAKSISCH” 
158 LOCATE 2,11:PRINT"C2J..... ANGELSAKSI 


SCH NAAR METRIEK” 

168 LOCATE 6,21:PRINT"TOETS UW KEUZE IN 
C1J of [237 

170 QS=INKEYS:IF Q$="” THEN 170 

180 IF Q$<”1" OR Q$>"2" THEN 170 

198 IF Q$="1"” THEN LOCATE @,2:PRINT"METR 
IEK NAAR ANGELSAKSISCH": N=1 

200 IF Q$="2" THEN LOCATE @,2:PRINT"ANGE 
LSAKSISCH NAAR METRIEK":N=2 

218 FOR P=7 TO 2@1:LOCATE @,P:PRINT SPACE 
SCIII:NEXT P 

228 LOCATE 2,8: PRINT®CAJ. eers ore eeen 
‚…. „LENGTEMATEN” 

230 LOCATE 2,1@:PRINIT"C2J. svenn 
OPPERULAKTEMATEN” 

220 LOCATE 2,12: PRINT“CII „een oe reren 
wanen GEWICHTEN" 

250. LOCATE 2,44: PRINT"CHI serena eenn 
-… « „ INHOUDSMATEN" 


50 


260 
EKE 
270 


eso 
eso 
C1 
300 
310 


320 
330 


LOCATE 2,16:PRINT"CSI)........... KUBI 
INHOUDSMATEN" 
LOCATE 2,18:PRINT"CGI., ese 


… TEMPERATUREN” 


LOCATE 2,28: PRINT"C7I).......s.senee 


«………« - STOPPEN" 


LOCATE 5,22:PRINT”TOETS UW KEUZE IN 
t/m C7)” 

QS=INKEYS: IF Q$="" THEN 300 

IF Q$<”1” OR Q$>”7"” THEN 300 

Q=VAL COS) 

IF Q=1 THEN P=3:IF N=1 THEN RESTORE 


2000 ELSE RESTORE 2100 


340 


IF Q=2 THEN P=2: IF N=l THEN RESTORE 


2001 ELSE RESTORE 2101 


350 


IF Q=3 THEN P=2:IF N=1 THEN RESTORE 


e00e ELSE RESTORE 2102 


360 


IF Q=4 THEN P=1:IF N=l THEN RESTORE 


2003 ELSE RESTORE 2103 


370 


IF Q=5 THEN P=2:IF N=1 THEN RESTORE 


2004 ELSE RESTORE 2104 


380 


IF Q=6 THEN P=1:IF N=l THEN RESTORE 


2005 ELSE RESTORE 2105 


330 
400 


IF Q=7 THEN CLS:END 
FOR X=5 TO 22:LOCATE @,X:PRINT SPACE 


SCII):NEXT X 


420 
430 
440 
450 


FOR R=1 TO P 
READ ASCR),ACR) 
NEXT R 

FOR R=1 TO P 


45 LOCATE 5,8+R:PRINT ASCR) 

470 NEXT R 

488 IF N=1 THEN ON Q GOTO 500,600, 700,80 
2,300, 1000 

490 IF N=2 THEN ON Q GOTO 1100,1200,1300 


‚1400,1500, 1500 


500 


510 


REM *…nnannannvannnnnanvnennnnTnn.n. 


* __LENGTEMATEN METRIEK>ENGELS * 


amnmnntnnntnnenvennnnn...….…...…. 
FOR R=1 TO P 


528 LOCATE 25,8+R: INPUT BCR) 

525 CCRI=BCRI*ACR) 

530 NEXT R 

54@ KCID=FIXCCCIDD 

558 CC2I=CCCID-KC1I)*1750+CC2) 

555 KC2)=FIXCCC2I) 

568 CCI)=CCC2I-KC2I)*I6+CCI) 

565 KCII=FIXCCCIID 

575 LOCATE 5,13:PRINT"is equivalent aan: 


589 LOCATE 5,15:PRINT USING"MILES ###### 

";KCID 

585 LOCATE 5,16:PRINT USING"YARDS #####H# 

”;KC2 

5390 LOCATE S,17:PRINT USING"INCH ####HH# 

”;KCID 

595 LOCATE 5,22:PRINT"TOETS CRETURNI" 

596 QS=INKEYS:IF Q5=""” THEN 596 

597 IF ASCCQS)=13 THEN 100 ELSE 596 

609 REN *…evennuvennnnennvnann..n.....….... 
* OPPERULAKTEN METRIEK>ENGELS * 
aacavacvornannvvenvenn nn... 

5612 FOR R=1 TO P 

52® LOCATE 25,8+R: INPUT BCR) 

525 CCR)=BCR)*ACR) 

530 NEXT R 

B4@ KCID=FIXCCCIDD 

558 CC2I=CCCID-KC1I)*54D+CC2) 

655 KC2e)=FIXCCC2I) 

575 LOCATE 5,13:PRINT"is equivalent aan: 


580 LOCATE S,15:PRINT USING"SQ.MILES ### 
BRR; KCID 

685 LOCATE 5,16:PRINT USING"ACRES kidid 
HER”; KC2D 

695 LOCATE 5,22:PRINT"TOETS CRETURNJ” 
5396 QS=INKEYS:IF Q$="”"” THEN 696 

697 IF ASCCQ$)=13 THEN 100 ELSE 596 
700 REN v…ene …… … …… 


* GEWICHTEN METRIEK>ENGELS al 


maannenenanansennnnnennennnnenen 


718 FOR R=1 TO P 

720 LOCATE 25,8+R: INPUT BCR) 

725 CCR)=BCR)*ACR) 

730 NEXT R 

738 KCID=FIXCCCIDD 

750 CC2I=CCCID-KCID)*16+CC2I 

755 KC2)=FIXCCC2ID 

775 LOCATE 5,13:PRINT”is equivalent aan: 


78@ LOCATE 5,15:PRINT USING”Lbs dadad 
HRH; KCID 
785 LOCATE 5,16:PRINT USING"Oz dadad 
BIH”; KC2D 


795 LOCATE S5,22:PRINT"TOETS CRETURNJ" 

796 QS-INKEYS:IF Q$="" THEN 796 

797 IF ASCCQS)=13 THEN 100 ELSE 736 

800 REM …envnencneensancvcacnvvneennn. 
* __ INHOUD METRIEK>ENGELS * 
…enencvsveensneevncncnnnann.. 

B1@ FOR R=1 TO P 

B2@ LOCATE 25,8+R: INPUT BCR) 

B25 CCR)=BCRI*ACR) 

830 NEXT R 

B4B KCID=FIXCCCIDD 

858 CC2I=CCCID-KC1D)*Z2 

B55 KC2)=FIXCCC2I) 

875 LOCATE 5,13:PRINT"is equivalent aan: 


880 LOCATE 5,15:PRINT USING”GALLONS ### 

WAE; KCID 

885 LOCATE 5,16:PRINT USING"F1 Oz _ ### 

HE; KC2D 

B95 LOCATE S,22:PRINT”TOETS CRETURN)” 

895 QS-INKEYS:IF Q$="" THEN 896 

897 IF ASCCQS)=13 THEN 100 ELSE 896 

GIO REM **enennmnnvannnnnnnnnnnnmn...... 
“KUBIEKE INHOUD METRIEK>ENGELS * 
…annnennnnvnnnnnneenn.......... 

910 FOR R=1 TO P 

320 LOCATE 25,8+R: INPUT BCR) 


ges CCR)=BCR)*ACRI 

3930 NEXT R 

948 KCID=FIXCCCIDD 

58 CC2I=CCCID-KCID)*HEESE! +CC2) 

955 KC2I=FIXCCC2ID 

360 KCI)=@ 

9556 IF KC2)>=1728 THEN KC3)=KCII +1: KCO) = 
KC2)-1728:GOTO 966 

375 LOCATE 5,13:PRINT”is equivalent aan: 


380 LOCATE S5,15:PRINT USING”Cub Yard ### 

HHR; KCID 

983 LOCATE S5,16:PRINT USING”Cub Feet #it# 

HH”; KCID 

985 LOCATE 5,17:PRINT USING"Cub Inch ### 

HER”; KC2I 

995 LOCATE 5,22:PRINT"TOETS CRETURNJ" 

936 QS=INKEYS:IF Q$="" THEN 996 

9397 IF ASCCQS)=13 THEN 100 ELSE 9396 

1907 REM*eeneaanennaenencerccencscnnsnann 
* TEMPERATUREN METRIEK>ENGELS * 

…nansaasacscvsennnveenen .. 

1918 FOR R=1 TO P 

1829 LOCATE 25,8+R: INPUT BCR) 

1825 CCR)=BCR)*ACR) 

1030 NEXT R 

1048 KC1)=CCID+32 

1975 LOCATE 5,13:PRINT”is equivalent aan 


1080 LOCATE 5,15:PRINT USING”Fahrenheit# 

BEI; KID 

1095 LOCATE S5,22:PRINT”TOETS CRETURNI” 

1036 QS=INKEYS:IF Q$="" THEN 1096 

1097 IF ASCCQS)=13 THEN 100 ELSE 1096 

1199 REN**vennnenannennannannnannvnnnnen 
* LENGIEMATEN ENGELS>MEIRIEK * 
…ansesvan.. …….ve. …anaanaan 

1110 FOR R=1 TO P 

1120 LOCATE 25,8+R: INPUT BCR) 

1125 CCRI=BERI*ACRD 
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1130 NEXT R 

1188 KCI)=FIXCCCID) 

115@ CC2)=CCCID-KC1I)*1900+CC2) 

1155 KC2)=FIXCCC2)) 

1158 CC3)=CCC2I-KC2I)*100+CCI) 

1165 KC3)=FIXCCCIID 

1156 IF KC3)>108 THEN KC2)=KC2)+1:KCIJ=K 
C3)-1099:GOTO 1156 

1175 LOCATE 5,13:PRINT"is equivalent aan 


1188 LOCATE 5,15:PRINT USING"Km ki hkihidad 

#";KCID 

1185 LOCATE S5,16:PRINT USING"Meter ##### 

Hr; KC2D 

1198 LOCATE 5,17:PRINT USING”Cm HHR 

#;KCID 

1195 LOCATE 5,22:PRINT"TOETS CRETURNI” 

11395 QS=INKEY$S:IF Q$="" THEN 1196 

1197 IF ASCCQ$)=13 THEN 100 ELSE 1196 

1200 REM*vveevevevevcscsvceerccveonceenenn 
* OPPERULAKTEN ENGELS>METRIEK * 
…………... heel ……vnacunaan 

1218 FOR R=1 TO P 

1228 LOCATE 25,8+R: INPUT BCR) 

1225 CCR)=BCRI*ACR) 

1230 NEXT R 

1248 KCID=FIXCCCIDD) 

1258 CC2)=CCCID-KC1)*100+CC2) 

1255 KC2)=FIXCCC2)) 

1256 IF KC2)>=108 THEN KCI)=KCID+1:KC2)= 

KC2)-190:GOTO 1256 

1275 LOCATE 5,13:PRINT"is equivalent aan 


1288 LOCATE 5,15:PRINT USING"KM 2 Hit 
HRH; KCID 
1285 LOCATE S5,16:PRINT USING"Ha idad 
HERH; KC2D 


12395 LOCATE S5S,22:PRINT"TOETS CRETURNI” 
1236 QS=INKEYS:IF Q$="" THEN 1296 
12397 IF ASCCQ$)=13 THEN 100 ELSE 1236 


1309 REM enen nennen ennen nnn nnn nnn nnn 
ed GEWICHTEN ENGELS>MEIRIEK * 
wennen nennen... 

1318 FOR R=1 TO P 

1320 LOCATE 25,8+R: INPUT BCR) 

1325 CCR)=BCR)*ACR) 

1330 NEXT R 

1340 KCID=FIXCCCIDD 

135@ CC2)=CCCID-KC1D)*1080+C(2) 

1355 KC2)=FIXCCC2I) 

1356 IF KC2)>=1008 THEN KC1)=KCI)+1:KC2) 

=KC2)-1000: GOTO 1366 

1375 LOCATE 5,13:PRINT”is equivalent aan 


1388 LOCATE 5,15:PRINT USING"Kg Ht 
BERN"; KCID 
1385 LOCATE S5,16:PRINT USING"Gr had 
HERH"; KC2D 


1395 LOCATE 5,22:PRINT"TOETS CRETURNJ” 

1396 QS=INKEYS:IF Q$=”” THEN 1396 

1397 IF ASCCQ 3 THEN 100 ELSE 1396 

1499 REM* venen …… Kheheehelschehdehdehehdhehd 
* INKOUDSMATEN ENGELS>METRIEK * 
…annannnnnannnnnnnn....... 

1410 FOR R=1 TO P 

1420 LOCATE 25,8+R: INPUT BCR) 

1425 CCR)=-BCR)*ACR) 

1430 NEXT R 

1440 KCID=FIXCCCI) 

1450 CC2I=CCCID-KC1))*1000 

1455 KC2)=FIXCCC2)) 

1475 LOCATE 5,13:PRINT”is equivalent aan 


1489 LOCATE 5,15:PRINT USING"Liters Hit 
HERH; KCLD 

1485 LOCATE S5,16:PRINT USING”cl/cm3 Hit 
HERH”; KC 

1495 LOCATE S5,22:PRINT"TOETS CRETURNJ” 
1435 QS=INKEYS:IF Q$="”" THEN 14396 

1437 IF ASCCQ$)=13 THEN 100 ELSE 1436 


1500 


1518 
1520 
1525 
1530 
1540 
1550 
1555 
1556 
1550 
1566 


RENS eren nnee ee ee ee ee 


“KUBIEKE INHOUD ENGELS>METRIEK * 
…ennnannn.n …enevensnenvenns. 
FOR R=1 TO P 
LOCATE 25,8+R: INPUT BCR) 
CCR)=BCRI*ACRD 
NEXT R 
KCID=FIXCCCDD 
CC2I=CCCII-KC19)*1000+CC2) 
KC2)=FIXCCCED 
CCI)=CCC2I-KC2I)*1000 
KCI)=FIXCCCIDD 
IF KC3)>=1000 THEN KC2D=KC2)+1:KCI) 


=KC3)-1900: GOTO 1566 


1575 LOCATE 5,13:PRINT”is equivalent aan 
1589 LOCATE S5,15:PRINT USING"m3 ld 
HERH; KCID 

1583 LOCATE 5,16:PRINT USING”dm3 kdd 
HERH”; KC2I 

1585 LOCATE 5,17:PRINT USING"cm3 Ht 
HIER; KCT 

15395 LOCATE 5,22:PRINT"TOETS CRETURNJ” 


1536 
1597 
1600 


1618 
1528 
1525 
1638 
1640 
1675 


1680 


QS=INKEYS: IF Q$="" THEN 1596 

IF ASCCQS)=13 THEN 100 ELSE 1596 

REM*ennnnneennenneennnaannverenneen 
* TEMPERATUREN ENGELS>METRIEK * 
…annnnnennnenennennnnnnenn nn... 


FOR R=1 TO P 


LOCATE 25,8+R: INPUT BCR) 
CCRI=CBCRI-32I*ACR) 

NEXT R 

KCID=CCID 

LOCATE 5,13:PRINT"is equivalent aan 


LOCATE S5,15:PRINT USING"Celsius # 


HHHHH HH; KC 


1635 
15396 
15697 


LOCATE S5,22:PRINT"TOETS CRETURNJ” 
QS=INKEYS: IF Q$="" THEN 1696 
IF ASCCQ$S)=13 THEN 100 ELSE 1696 


2000 DATA 
2001 DATA 
2002 DATA 
2003 DATA 
2004 DATA 
2005 DATA 
2100 DATA 
„e.5t 

2101 DATA 
2102 DATA 
2103 DATA 
2104 DATA 
2105 DATA 


Km,2.621377,M,1.0336,Cm,0.3937 
Km2,@.3861,Ha,2.47096 
Kg,2.2045,Gr,0.03572 
Lt,2.26418 
m3,1.3072,cm3,0.61025 
Celsius,1.8 

Mile,1.6093, Yards,0.91441, Inch 


SgqrMile,2.530,Acre, 0. 4047 
Lbs,0.4#536,0z,28.3527 
Gal,3.7852 
Cub.Yard,8.755,Cub. Inch, 16.386 
Fahrenheit,@.S5S555555555556 


WEERSTANDELEURCODES 


Met dit programma kunnen knutselaars onder 
ons op snelle en eenvoudige wijze hun weer- 
standen sorteren. 

Uitgaande van de drie bovenste kleurringen 
rekent de MSX de waarde van de weerstand voor 
U uit. 


De bediening gebeurt met de cursortoetsen of 
met joystick. 


U krijgt een scherm te zien met onderin een 
kleurenbalk met daarin alle kleuren die op 
weerstanden kunnen voor komen. 


U kiest eerst de kleur van de eerste ring 
door het pijltje boven die kleur te zetten en 
daarna de spatiebalk resp. de vuurknop in te 
drukken. 

Dit doet U ook voor de tweede en derde ring 
en direct daarna verschijnt de waarde van de 
weerstand in beeld. 

U ziet het eenvoudig en sneller dan met een 
tabelletje knoeien. 
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19 REN vna … hehehahah 
* WEERSTAND-KLEURCODES ** 
. BEREKENEN . 
** _ VERSIE 1.0 (C)1985 
* _ ROBERT-JAN DONKERS *e 
vennnenansvenssvnencnenvnnen 
20 SCREENO: CLS: KEYOFF 
30 PRINT”GEBRUIKT U JOYSTICK (J/ND” 
#0 LOCATE @,21:PRINT” TOETS UW KEUZE IN 
CI/ND” 
50 QS=INKEYS:IF Q$="" THEN SQ 
50 IF Q$-"J" OR QS="j" THEN N=1:GOTO 90 
70 IF QS="N" OR Q$="n" THEN N=0:GOTO 30 
89 GOTO 50 
30 SCREEN 2:COLOR 15,5,5:CLS 
100 X=8:Y=140:R=D 
110 SPRITESC1)=CHRSC16)+CHRSC15)+CHRSC16 
)+CHRSC156)+CHRSC25HI+CHRSC124D +CHRSC5E)+ 
CHRSC16) 
120 PUT SPRITE 1,CX,Y),1,1 
130 C=5 
140 PRESETC7,7),C 
159 OPEN "GRP: "FOR OUTPUT AS#1 
150 PRINT#1,”"TERMINAL WEERSTANDKLEURCODE 


170 LINE C@,151)-(23,191),1,BF 
188 LINE C24,151)-CH7,191),13,BF 
1399 LINE C48,151)-(71,191),6,BF 
200 LINE (72,151)-(95,191),9,BF 
210 LINE (96,151)-C118,191),18,BF 
220 LINE C119,151)-C143,181),2,BF 
230 LINE C144,151)-(167,191),4,BF 
24@ LINE C168,151)-C191,131),4,BF 
250 LINE C168,151)-(131,131),6,B 
268 LINE C170,151)-C178,181),6 
278 LINE C172,151)-(172,1391),6 
288 LINE C174,151)-(174,1391),6 
290 LINE C(176,151)-(176,191),6 
300 LINE C178,151)-(178,191),6 
310 LINE C188,151)-(189,131),6 
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60 


320 
330 
340 
350 
360 
370 
380 
330 
400 
410 
420 


430 
440 
450 
450 
470 
et 

480 
490 
500 
510 
520 
530 


540 
550 
550 
570 
580 
530 
600 
612 
620 
630 
540 
5650 
550 


LINE C182,151)-(182,1391),6 

LINE C184,151)-(184,191),6 

LINE C186,151)-(186,191),6 

LINE C188,151)-(188,1391),6 

LINE C192,151)-C215,191),14,BF 
LINE C215,151)-(239,191),15,BF 
PRESET(7,55),C:PRINI#1, "le RING: ” 
PRESETC7,71),C:PRINI#1, "2e RING: ” 
PRESETC7,87),C:PRINT#1, "3e RING: ” 
PRESETC15, 111) RINT#1, "WAARDE: ” 


REM vennen emmen en 
** __ HOOFDPROGRAMMA … 
vanaunenevansseenenwennn nn 

IF R=3 THEN 770 

STRIGCN) ON 

IF R<>3 THEN P=STICK(N) ELSE 770 

IF P=@ THEN X=X:Y=140 

IF P=3 THEN X=X+24: IF X>224 THEN X=2 


IF P=7 THEN X=X-24:IF X<8 THEN X=8 

PUT SPRITE 1,CX,Y),1,1 

ON STRIG GOSUB 530 

FOR P=1 TO 100:NEXT P:GOTO 450 

GOIO 520 

REN *emmenvnnensmanenn 
** DE KLEU 
…unmensvesnnseennvensnns..... 

R=R+1:X1=87:X2=127:Y1=39: Y2=47 

IF X=B THEN C=1:W=@ 

IF X=32 THEN C=13:W=1 

IF X=56 THEN C=6:W=2 

IF X=80 THEN C=3:W=3 

IF X=104 THEN C=10:W=4 

IF X=128 THEN C=2:W=5 

IF X=152 THEN C=4:W=6 

IF X=176 THEN C=4:C1=6:UW=7 

IF X=200 THEN C=14:W=8 

IF X=224 THEN C=15:W=S 

IF C1=6 THEN 680 

LINE CX1,Y1+R*15)-(X2,Y2+R*16),C,BF 


678 GOTO 730 
582 LINE CX1,Y1+R*15)-(X2,Y2+tR*16),C,BF 
590 LINE CX1,Y1+R*15+2)-CX2, Y1+R*16+2),C 


700 LINE CX1,Y1+R*16+4H)-CX2,Y1+R*16+4),C 
71@ LINE CX1,Y1+R*15+5)-(X2,Y1+R*16+5),C 
728 C1=Q 

730 IF R=1 THEN T=W 


740 IF R=2 THEN T=19*T+W 
750 IF R=3 THEN T=T*C1@°W) 


…nvnnennnnneennvnenn 


* WAARDE VAN DE WEERSTAND** 
bad INVULLEN hd 
…ennvunesvnennavenn nn... 

780 R=0@ 

790 PRESET (B7,111),5 

800 PRINT#1,T;CHRSC234) 

819 PRESET (Q,135),5 

B20 PRINT#1,”TOETS 'U'=VERVOLG, 'S’=STOP" 

B30 QS=INKEYS:IF Q$="" THEN 830 

840 IF QS="U” OR Q$="v” THEN B70 

850 IF Q$="S” OR QS-"s” THEN END 

860 GOTO 830 

870 LINE C87,55)-(127,63),5,BF 

880 LINE (B7,71)-(127,79),5,BF 

890 LINE CB7,87)-(127,395),5,BF 

300 LINE C87,1119-C255,119),5,BF 

910 LINE (@,135)-(255,143),5,BF 

geo GOTO +20 
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ELEMENTEN LIJST 


Elementenlijst is een programma dat eenmaal 
ingetoetst en op tape gezet een ideaal hulp- 
middel kan zijn voor scholieren, die 
scheikunde in hun pakket hebben. 

Telkens als U gegevens nodig heeft van een 
bepaald element hoeft U niet meer te bladeren 
in een of ander tabellenboek maar een 
eenvoudige 'druk op de knop’ is dan voldoende 
om de gegevens voor U op het scherm te 
zetten. 

Uiteraard moet U dan wel eerst Uw MSX klaar 
zetten voor gebruik, voor dat U met het huis- 
werk begint. 

U kunt zoeken op Naam van het element, op 
symbool of op atoomnummer . 

Het is even werken om het programma in te 
toetsen, maar daarna kunt U er toch veel 
gemak van hebben. 
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REM veeunnnnvnenvvenenennnanennnenn 


„. ELEMENTENLIJST „, 
**Cc) 1385 ROBERT-JAN DONKERS ** 


…ann …auauuuenenn …. 

REN **enanenennacnsvenesveenvnennn 
. INITIALISEREN … 
…envenevesnveseecnnnevencennnn.. 

DIMESC106):DIM S$C105):DIM AC106) 

RESTORE 

FOR N=1 TO 106 

READ ES(N):READ SSCN):READ ACN) 

NEXT _N 

COLOR 15,1,1:KEYOFF:WIDTH 40 

CLS 

PRINT "ELEMENTENLIJST Cc) 1985 TERMIN 


LOCATE 5,5:PRINT ” MENU” 


108 LOCATE 5,8:PRINT "1. ZOEKEN OP NAAM 
ELEMENT” 
118 LOCATE 5,10:PRINT"2, ZOEKEN OP SYMBO 


OL VAN ELEMENT” 

139 LOCATE 5,12:PRINT "3. ZOEKEN OP ATOO 
MNUMMER ” 

15@ LOCATE 5,14:PRINT "4. COMPLETE ELEME 
NTENLIJST” 


170 LOCATE 5,16:PRINT "5. STOPPEN" 
180 LOCATE @,21:PRINT ” > TOETS UW KEU 


ZE IN < ” 

190 QS-INKEYS:IF Q$="” THEN 190 

200 IF Q$<”1” OR Q$>"5” THEN 190 

219 A=VALCAS) 

220 ON A GOTO 240, 420,520,740, 1040 

230 GOTO 70 

24Q REM*eenenennvenenennunennnnnn.n…..…. 


ets 
esg 


* ZOEKEN OP NAAM VAN ELEMENT ** 
veonvenenenenensrnenvnnnennnennn 
CLS: POKE 64583! ,255 
BRINI” ELENENTENLIJST 
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BBO PRINT"errenn nennen nnn 


270 PRINT 

280 PRINT” _ OPZOEKEN OP Naam.” 

290 LOCATE 3,6: INPUT"GEEF NAAM ELEMENT : 
"AS 

320 FOR N=1 TO 106 

330 IF AS=ESCN) THEN 350 


340 NEXT N 

359 LOCATE @,21:PRINT ” ELEMENT BESTAAT 
NIET !I!III!”:FOR P=1 TO 50O:NEXT P:GOTO 
245 

358 PRINT:PRINT 

3565 PRINT "NAAM :”;ESCND 


370 PRINT ”ATOOMNO. ‚N 

375 PRINT"”SYMBOOL :”;SSCND 

380 PRINT"”MASSA 1” ACN) 

#00 C=2 

410 GOTO 350 

H2Y REM*enenennnnnannnennnnnnnnnnmenn.. 
hakad ZOEKEN OP SYMBOOL kk 
khehehehekehedeeehelededechehehededeehehdeddeehehededeekeeheheehed 

425 CLS:POKE 64683! ,@ 

430 PRINT” ELEMENTENLIJST ” 


HUO PRINTS 


450 PRINT:PRINT” OPZOEKEN OP SYMBOOL.” 
450 PRINT 

470 INPUT "GEEF SYMBOOL :”;AS 

510 FOR N=1 TO 106 

520 IF A$S=S$CN) THEN 560 

530 NEXT N 

540 LOCATE @,21:PRINT ” ELEMENT BESTAAT 
NIET #!EIIIN IN” 

550 FOR Q=1 TO 500:NEXT Q:GOTO 420 

558 PRINT:PRINT 
565 PRINT "NAAM 
570 PRINT"”ATOOMNO. 
575 PRINT”SYMBOOL 
588 PRINT”MASSA 


509 C=4 

619 GOTO 950 

629 REM*…eveenen evennennannnernnen 
Hen ZOEKEN OP ATOOMNUMMER akssl 
vennnaneeunnennsenennensennennen 

625 CLS 

630 PRINT” ELEMENTENLIJST ®* 

640 PRINT:PRINT 

55% PRINT"OPZOEKEN OP ATOOMNUMER. ” 

65@ LOCATE 3,5: INPUT"GEEF ATOOMNUMMER: ” ; 

N 

578 IF N<1 OR N>1065 THEN LOCATE @,21:PRI 

NT” ELEMENT BESTAAT NIET I!IIIIIEIII": FO 

R P=1 TO 500:NEXT P:GOTO 620 

588 PRINT:PRINT 

585 PRINT”NAAM z”;ESCND 

630 PRINT"ATOOMNO. 

635 PRINT”SYMBOOL 

708 PRINT”MASSA 

718 C=6 

728 GOTOISE 


74D REM**neuvseecesvenscecennnneennneen 
„ COMPLETE ELEMENTENLIJST e. 


…envvecvvenveeevennnnnnennmmn.n. 
741 CLS:PRINT"COMPLETE ELEMENTENLIJST":L 

OCATE @,3:PRINT” NAAR CS)CHERM OF CP)RIN 
TER *” 

742 LOCATE @,21:PRINT"TOETS UW KEUZE IN 
CS) OF CPJ * 

744 QS=INKEYS: IF Q$="" THEN 744 

745 IF Q$="S5" OR Q$="s"” THEN 748 

746 IF QS="P" OR Q$="p" THEN 870 

747 GOTO 744 

748 N=1 

75@ CLS:PRINT"” E LEMENTENLIJS 
Ir” 

758 LOCATE @,3:PRINT"COMPLETE LIJST VAN 
DE ELEMENTEN .” 

788 LOCATE @,5:PRINT"NAAM :";ESCN 
Di] 
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730 LOCATE @,7:PRINT"ATOOM-NR. 

80% LOCATE @,3:PRINT”SYMBOOL 

) 

818 LOCATE @,11:PRINT"HASSAGEIAL :”;ACN 

4 

B20 LOCATE @,21:PRINT" TOETS _>RETURN<= 

VERVOLG, >M<=MENU " 

830 QS-INKEYS:IF Q$="” THEN 830 

840 IF ASCCQS)=13 THEN N=N+1:GOTOSS@ 

B45 IF QS="M" OR Q$="m” THEN 70 

845 GOTO 830 

850 IF N=107 THEN 70 

86% GOTO 750 

870 REMeesveuvacsecceessvescsnveneenneon 
* COMPLEIE LIJST NAAR PRINTER ** 
…vvueesasaeancecnenvensnnr... 

B80 LPRINT” COMPLETE ELEMENTENLIJST ”:LP 

RINT 

830 FOR N=1 TO 106 

900 LPRINT”NAAM 

810 LPRINT”ATOOM-NR 

320 LPRINT”SYMBOOL 

930 LPRINT”MASSAGETAL 

S40 LPRINT:LPRINT:NEXT N 

945 GOTO 70 

950 LOCATE @,21:PRINT” TOETS >m<=h 

ENU _ >U<=VERVOLG „ 

955 POKE 64683! ,255 

950 QS-INKEYS:IF Q$=”” THEN 960 

970 IF Q$="H” THEN 70 

980 IF Q$="U” THEN 1030 

930 GOTO 360 

1030 IF C=2 THEN 249 

1032 IF C=t THEN 420 

1034 IF C=6 THEN 620 

1040 END 

2000 DATA “WATERSTOF”, "HK", 1.00797 

2001 DATA ”HELIUM”,”He”,4.0026 

2082 DATA “LITHIUM”, ”1i”,6.941 

2003 DATA "BERYLLIUM”,"Be”,9.012 


:";ESCND 
N 
SSCN) 
ACN) 
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2004 
2005 
2006 
2007 
2008 
2003 
2010 
2011 
2e1e2 
2013 
2014 
2015 
2016 
2017 
2018 
2018 
egeg 
egel 
egee 
ege3 
2ge4 
eges 
eges 
2027 
2ge8 
egeg 
2030 
2031 
eo3e 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2a4e 
2043 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


“BOOR”, "B",10.B11 
»KOOLSTOF”, "C*,12.0111 
“STIKSTOF”, "N",14.0076 
»ZUURSTOF”,"0”,15.9594 
»FLUOR”, ”F”,18.9984 
“NEON”, "Ne”, 20.179 
“NATRIUM”, ”Na”, 22. 3898 
“MAGNESIUM”, "Hg", 24.305 
"ALUMINIUM", "A1”,26.3815 
"SILICIUM”, "5i”,28.086 
"FOSFOR", "P"”,30.39738 
”ZWAVEL", "5", 32.064 
"CHLOOR”, "C1”, 35.453 
"ARGON”, "Ar”, 39. 0348 
"KAL IUM”, "K”, 39.102 
"CALCIUM", "Ca”, 40.08 
”SCANDIUM”, "Sc", 44.356 
“TITIAAN”, "Ti”,47 30 
“VANADIUM”, "U”,50. 942 
“CHROOM”, "Cr ”,51.996 
MANGAAN”, ”Mn”, 54.938 
"IJZER", "Fe”,55.847 
»KOBALT”, "Co”,58.3332 
"NIKKEL", "Ni”,58.71 
"KOPER", "Cu”,63.546 
“ZINK”, "2n”, 64.38 
"GALLIUM”, "Ga”,69.72 
"GERMANIUM”, "Ge”, 72.59 
"ARSEEN", "As", 749216 
"SELENIUM”, "Se”, 78.96 
”BROON”, ”Br”,79.904 
»KRYPION” ‚Kr ”, 83.80 
“RUBIDIUM”, "Rb", 85.47 
"STRONT IUM”, "Sr ”,87.62 
“YIIRIUM”, "Y”,88.305 
“ZIRKONIUM”, "2 ”,31.22 
“NIOBIUM”, "Nb”, 32.906 
"MOLYBDEEN”, Mo”, 35.94 
"TECHNET IUM”, "Tc”,97 
“RUTHENIUM”, "Ru”, 101.07 
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2044 
2845 
2046 
2047 
2048 
2043 
2050 
2051 
ease 
2053 
2054 
2gss 
2056 
2057 
2058 
2058 
2050 
2061 
ease 
2063 
2064 
2865 
2066 
2057 
2068 
2063 
2070 
2071 
2a7e 
2073 
2874 
2075 
2076 
2077 
2078 
2073 
2080 
2081 
egge 
2083 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


“RHODIUM”, ”Rh”, 102.305 
“PALLADIUM”, ”Pd”,106.4 
“ZILVER”, "Ag”, 107.870 
”CADMIUM”, "Cd”, 112.40 
”INDIUM”,”In”, 114.82 
“TIN","Sn”,118.69 
"ANTIMOON”, "Sb", 121.75 
"TELLUUR”, "Te”, 127.60 
”JOOD”,”1”,126.3045 
"XENON", "Xe”,131.3 
"CESIUM”, "Cs”, 132.905 
“BARIUM”, ”Ba”, 137.34 
"LANTHAAN”, ”La”, 138.31 
PCERIUM”,"Ce”‚140.12 
»PRASEODYMIUM”, "Pr", 140.307 
"NEODYMIUM”, "Nd", 144,24 
“PROMETHIUM”, ”Pm”, 145 
"SAMARIUM”, "Sm", 150.35 
"EUROPIUM”, "Eu”, 151.96 
”GADOL INIUM”, Gd”, 157.25 
"TERBIUM”, ”Tb”, 158.324 
»DYSPROSIUM”, "Dy”, 162.50 
"HOLMIUM”, ”Ho”, 164.930 
"ERBIUM”, "Er”, 167.26 
“THUL IUM”, ”Tm”, 168.934 
"YTTERBIUM”, "Yb", 173.04 
"LUTETIUM”, ”Lu”, 174.37 
”HAFNIUM”, HE”, 178.49 
"TANTAAL”, "Ta”, 180.948 
"WOLFRAAM", "W”, 183.85 
PRENIUM”, "Re”, 185 .2 
"OSMIUM”,”Os”,190.2 

" IRIDIUM”, "Ic", 192.2 
“PLATINA”, ”Pt”,135.09 
“GOUD”, "Au”, 196.367 
»KWIK”,”"Hg”,200.53 
"THALLIUM”, “Th”, 204.37 
»LOOD”, "Pb", 207 
”BISMUIK”,”Bi”,208.981 
»POLONIUM”, Po”, 203 


2084 
2085 
2086 
2087 
2288 
2083 
2030 
2031 
eoge 
2093 
2034 
2085 
2036 
2037 
2038 
20393 
2100 
2101 
eige 
2183 
2104 
e10s 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


”ASTAAT”, "At”,210 

"RADON”, ”Rn”, 222 
»FRANCIUM”, ”Fr”, 223 
“RADIUM”, ”Ra”, 226 

"ACT INIUM”, "Ac”, 227 
“THORIUM”, "Th”, 232.038 
“PROTACTINIUM”, "Pr ”, 140.907 
»URANIUM”, ”U”, 238.03 
"NEPIUNIUM”, ”Np”, 237 
»PLUTONIUM”, ”Pu”, 244 
PAMERICIUN”, "Am”, 243 
”CURIUM”, "Cm”, 247 
"BERKEL IUM”, "Bk", 247 

"CAL IFORNIUM”, "CE", 251 
PEINSTEINIUN”, "Es”,252 
»FERMIUM”, “Fm”, 257 
“MENDELEUIUM”, "md”, 257 
”NOBEL IUM”, ”No”, 255 
“LAWRENCIUN”, "Lr ”, 257 
”KURCHATOU TUM 
"HAHNIUM”, "Ha 
"UNNILHKEXIUM”, "Unh”, 263 
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HI-RES TEKENEN 


Met dit tekenprogramma kunt U allerlei prach- 
tige schermen ontwerpen. 

Er zijn een aantal standaardmogelijkheden in- 
gebouwd o.a.: Cirkels, Rechthoeken, Lijnen, 
invullen met een kleur, kleur veranderen. 


Het programma werkt zowel met Joystick als 
Cursortoetsen. 

Als U het programma opstart komt U in screen 
een ziet U in het midden een pijlcursor. 
Deze kunt U bewegen met cursortoets of joy- 
stick. Door tijdens het bewegen gelijktijdig 
spatiebalk resp. vuurknop in te drukken 
tekent U een lijn in de kleur die U gekozen 
heeft. 


Verdere bediening: 

Als de cursor in beeld is heeft U naast het 
hierboven beschreven bewegen en tekenen de 
volgende mogelijkheden: 


TOETS 'F’'= Fill routine; een vlak inkleuren 

TOETS 'P'= Oorspronkelijke kleur(=wit=15) in- 
stellen. 

TOETS 'K'= Kleur kiezen CIS is de standaard- 
kleur bij het opstarten). 

TOETS 'W'= Wissen.CHier wordt de kleur van de 
te wissen lijn hetzelfde als de 
achtergrond:kleur 4). 

TOETS 'C'= Cirkel tekenen met een door U te 
bepalen straal r en als middelpunt 
de huidige cursorpositie. 

TOETS ’L’'= Een lijn tussen twee punten. 

TOETS 'B'= Een rechthoek(=Box) tekenen. 

TOETS 'S'= Een screendump op papier. 
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De diverse mogelijkheden nader toegelicht. 


FILL ROUTINE: 

U zet de cursor in het te kleuren vlak en 
druk daarna de 'F’'-toets in. 

Zorg er voor dat wanneer U een bepaald vlak 
wilt inkleuren met Kleur C, de lijnen van de 
Figuur ononderbroken zijn en dat deze lijnen 


van dezelfde kleur C moeten zijn , anders 
overschrijft de Fill-routine Uw gehele 
tekening. 


KLEUR INSTELLEN: 

U kunt hiermee de kleuren 1 t/m 15 instellen 
om daarmee dan een Figuur te tekenen. Kies 
NOOIT kleur 4 want dat is de kleur van de 
achtergrond en dus wordt Uw tekening onzicht- 
baar. Met P stelt U de oorsponkelijke kleur 
weer in. (=wit=15) 

Geef de waarde van de kleur als 2 cijfers : 4 
wordt dus O4 en 10 blijft 10. 


WISSEN: 

Hierbij wordt de kleur van het tekenen gelijk 
aan de achtergrond, zodat wanneer U over een 
Figuur tekent deze gewist wordt. Heeft U 
alles gewist wat er gewist moest worden, dan 
stelt U met ’P’ de oorspronkelijke kleur weer 
in. 


CIRKELS TEKENEN: 

U zet eerst de cursor op het punt waar het 
middelpunt van de cirkel moet liggen. 

Daarna toetst U 'C' in en kunt U de straal 
van de cirkel invoeren. De waarde van de 
straal moet U met drie cijfers invoeren. 

Moet de straal 40 zijn, dan toetst U 040 in, 
bij een straal van 100 is dat 100 etc.etc. 
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LIJNEN TEKENEN: 

U zet eerst de cursor op het punt waar de 
lijn moet beginnen. Zet daar een punt door op 
spatiebalk of vuurknop te drukken. 

Toets dan 'L’ om aan te geven dat U een lijn 
wilt trekken. Verplaats dan de cursor naar 
het eindpunt van de lijn. Het eindpunt van de 
lijn wordt door U aangegeven door op de 
spatiebalk of de vuurknop te drukken. Dan 
wordt de lijn tussen deze twee punten 
getrokken in een kleur die U met de optie 'K' 
heeft aangegeven. 


RECHTHOEK TEKENEN: 

Deze routine maakt gebruik van de mogelijk 
van MSX-BASIC om een zgn 'BOX' te tekenen. 

U geeft eerst aan waar de linkerbovenhoek van 
de rechthoek komt te liggen. Eerst de cursor 
daar naar toe verplaatsen, dan de vuurknop of 
spatiebalk indrukken. Dan toetst U 'B' om aan 
te geven dat U een rechthoek wilt tekenen. 
Verplaats nu de cursor naar het punt waar de 
rechterbenedenhoek van de rechthoek moet 
komen te liggen. Druk dan spatiebalk of vuur- 
knop in en U ziet dat de rechthoek wordt 
getekend. 


SCREENDUMP : 

Toets 'S' brengt U in een screendump program- 
ma, waarmee U de tekening naar de printer 
stuurt . 

Er is in dit programma geen screendump-routin 
opgenomen, omdat er al diverse gepubliceerd 
zijn en het onzin is om er nog een te 
ontwikkelen als er al enkele goede beschik- 
baar zijn voor MSX. 

MSX Computer Magazine publiceerde o.a. 
CRT-dump, die U zo achter dit programma kunt 
plakken. 


18 REM vennnonnnnvennnennnnnnmmnnnnn 
hech HIGH RESOLUT ION real 
* TEKENPROGRAMMA SCREEN 2 ** 
**CC)1385 ROBERT-J.DONKERS ** 


vnnnnsnennennenensenwnennnenn 

28 REN …ennnnennnnnnnvannennmenvnnnn 
mm INITIALISEREN bea 
vrrveevanneennenvaansvvunnenn 

30 C=15:W=Q 

4@ COLOR C,‚4,4:KEYOFF: SCREEN @:WIDTH HO 

5@ PRINT:PRINT"”GEBRUIKT U JOYSTICK (J/N) 


50 QS=INKEYS: IF Q$="" THEN 60 

70 IF Q$="J" OR Q$=”j” THEN N=1:GOI0 100 
BO IF QS="N" OR Q$="n” THEN N=@:GOTO100 

30 GOTO 60 

109 SCREEN 2 

110 OPEN”GRP:” FOR OUTPUT AS#1 

129 SPRITESCO)=CHRSC252) +CHRSC132)+CHRSC 
160) +CHRSC144) +CHRSC135)+CHRSC132)+CHRSC 
2)+CHRSCID 

130 X=127:Y=35 

140 PUT SPRITE @,CX,Y),1,0 

150 R=STICKCN) 

159 IF R=@ THEN X=X:Y=Y 

170 IF R=1 THEN Y=Y-1 

180 IF R=2 THEN X=X+1:Y=Y-1 

190 IF R=3 THEN X=X+1 

200 IF R=t THEN X=X+1:Y=Y+1 

210 IF R=5 THEN Y=Y+1 

220 IF R=6 THEN X=X-1:Y=Y+1 

230 IF R=7 THEN X=X-1 

240 IF R=B THEN X=X-1:Y=Y-1 

250 IF X>255 THEN X=255 

260 IF X<@ THEN X=0 

270 IF Y>182 THEN Y=182 

280 IF Y<O THEN Y=@ 

230 IF STRIGCN) THEN GOSUB 400 

300 AS-INKEYS 

310 IF AS="F" OR AS="E" THEN 520 


74 


74 


320 IF A$="P" OR A$="p" THEN C=15 

330 IF AS="K" OR AS-"k" THEN 430 

340 IF AS-"W" OR AS="w” THEN C=4 

350 IF A$-"C" OR A$-"Cc" THEN 550 

360 IF AS="B" OR A$="b" THEN 550 

370 IF AS="L" OR AS="1" THEN 850 

380 IF A$="S5" OR A$="s” THEN 1070: REN 

EEN SCREEN-DUMP PROGRAMMA. 

390 GOTO 140 

HOO REN *vnvmnenevenrvvvevvnvnenvnnn 
* PUNT ZETTEN IN KLEUR C ** 
K ededhehehechechheheheheeehecheheceehechhedheehchedhaed 

410 PSETCX,Y),C 

#20 RETURN 


UID REN —……nenvvannvennvecnenvevrennn 


e. KLEUR C INSTELLEN 


440 PRESETC@, 183), 4: PRINT#1, 
CI t/m 15) "‚C8=** 

450 QS=INKEYS:IF Q$="”"” THEN 450 

450 IF Q$<”Q"” OR Q$>"”9" THEN 450 

470 C$=C$+QS: IF LENCCS)<>2 THEN 450 

480 C=VALCCS) 

430 FOR Q=1 TO100:NEXT Q 

500 LINE (@,183)-C255,1391),4,BF 

518 GOTO 140 

520 REN * 


530 PAINTCX,Y),C 

S4@ GOTO 140 

550 REM …vvvenvennssenvervvunvnn 
KEL TEKENEN MET R EN C** 
…nvnnanennenaannsnn.n 
560 PRESEIC@,183),4:PRINT#1, "Geef straal 
van cirkel ”:C$="" 

570 QS=INKEYS:IF Q$=""” THEN 570 

580 IF Q$<”@” OR Q$>"”9"” THEN 570 

590 C$-C5+05: IF LENCCS)<>3 THEN 570 


500 
610 
620 
530 
640 
650 


550 
578 
580 
530 
700 
710 
728 
730 
740 
750 
760 
770 
780 
730 
800 
810 
820 
830 
840 
850 
850 


870 
880 
8390 
300 
910 
220 
330 
340 
950 
350 


R=VALCCS) 

FOR Q=1 TO100:NEXT Q 

LINE (@,183)-(255,131),4,BF 
CIRCLECX,Y),R,‚C 


GOTO 140 

REM wennnannnansnTnnennn ennn... 
«BLOK TEKENEN MET C … 
K dndehendathnadhnateethedheaheaheenahhaahsehsasansheetheodheohsohsohsohieehscheel 

X1=X: Y1=Y 

PUT SPRITE @,CX,Y),1,0 

R=STICKCND 

IF R=O THEN X=X:Y=Y 


IF R=1l THEN Y=Y-1 

IF R=2 THEN X=X+1:Y=Y-1 
IF R=3 THEN X=X+1 

IF R=4 THEN X=X+1:Y=Y+1 
IF R=5 THEN Y=Y+1 

IF R=5 THEN X=X-1:Y=Y+1 
IF R=7 THEN X=X-1 

IF R=8 THEN X=X-1:Y=Y-1 
IF X>255 THEN X=255 

IF X<@ THEN X=@ 

IF Y>182 THEN Y=182 

IF Y<@ THEN Y=@ 

IF NOT STRIGCN) THEN 670 
IF STRIGCN) THEN GOSUB 400 
LINE CX1,Y1)-CX,Y),C,B 


GOTO 140 

REM ……ssvnssneveee ……snvaenannn 
* LINE TEKENEN MEI C hd 
vensoonvveenvoonveerneenneene 

X1=X: Y1=Y 

PUT SPRITE @,(X,Y),1,0 

R=STICKCN) 


IF R=@ THEN X=X:Y=Y 

IF R=l THEN Y=Y-1 

IF R=2 THEN X=X+1:Y=Y-1 
IF R=3 THEN X=X+1 

IF R=4 THEN X=X+1:Y=Y+1 
IF R=S THEN Y=Y+1 

IF R=6 THEN X=X-1:Y=Y+1 


970 IF R=7 THEN X=X-1 

980 IF R=B THEN X=X-1:Y=Y-1 

930 IF X>255 THEN X=255 

IF X<@ THEN X=@ 

IF Y>182 THEN Y=182 

IF Y<@ THEN Y=@ 

IF NOT STRIGCN) THEN 880 
IF STRIGCN) THEN GOSUB 400 
LINE CX1,Y1)-CX,Y),C 

GOTO 140 


1000 
1012 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 


1100 


1110 


1120 


1130 
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REM 
REM 
REM 


REM 


REM 


REM 


HIER EEN SCREEN-DUMP PROGRAMMA 
BIJV, UIT MSX COMPUTER MAGAZINE 
DAT ER IN DIT BOEK GEEN IS 
OPGENOMEN KOMT OMDAT ER ENKELE 
GOEDE IN BOVENGENOEMD ’MCM* 
ZIJN GEPUBLICEERD. 

DE AUTEUR VINDT HET DAN OOK 
ONZIN OM VOOR DE ZOVEELSTE 
KEER 'HET WIEL WEER UIT TE 
VINDEN' ! 

IN REGEL 380 IS REEDS EEN 
VERWIJZING NAAR DIT SCREENDUMP 
PROGRAMMA OPGENOMEN: TOETS 'S', 
EINDIG HET SCREENDUMP-PROG. 
MET EEN REGEL ALS HIERONDER; 
’GOTO 140’. 


GOTO 140 


GRAFIEK FLOTTEN 


Met dit programma kunt U bepaalde gegevens 
Grafisch in beeld brengen. 
De gegevens worden per datum geregistreerd.Per 
datum kunt U max. 3 rubrieken invoeren en in 
beeld brengen. 
Als voorbeeld zou het volgende kunnen: 

1. Verkopen 2, Inkopen 3. Kosten 


Als U voor deze rubrieken nu de verschillende 
waarden invoert voor 'n aantal datums 
‚krijgt U per datum 3 gekleurde balken in 
beeld, waarvan de lengtes overeenkomen met de 
door U ingevoerde waarden. 
De kop boven de balken waar de diverse waarden 
ingevuld worden, wordt steeds aangepast aan 
de hoogste waarde die U heeft ingevoerd. Dit 
geschiedt in de regel 280, waarbij PP de 
maximale waarde bijhoudt, De verhoudingen 
tussen de diverse rubrieken wordt daardoor 
steeds gegarandeert. 
Het programma is volledig menu-gestuurd, waar- 
bij U in het Hoofdmenu de volgende opties 
heeft: 

1. Invoer van gegevens 

2, Gegevens opslaan op tape of disk 

3. Gegegens inlezen van tape of disk 

4, De Grafiek plotten 

5. Eindigen met programma 


Het programma is ruim voorzien van REM-state- 
ments zodat U een duidelijk inzicht krijgt 
over de diverse routines. 


18 REM vesvaasssenssanssnsnnnnnn 
hd GRAFIEKEN PLOTTEN bh 
… MET DATUM INDEX bd 
* __ VERSIE 1.1 VOOR MSX «e 

„DONKERS *= 

…ennnenveennsn 

20 SCREEN @:WIDTH 4@:COLOR 15,1,1 

30 CLEAR 6000 

40 DIM ASCSO),ACSO, 3) ,PCSO, 3), BSC ,CCI) 

50 CC1)=4:CC2)=6:CC3)=10 

569 PP=180:F=1:N=0: X=0:NN=O: KEYOFF 

70 25-SPACES(39) : YS-SPACESC24) 


89 GOTO 310 
GP REN *emnnvnennneneveecnevvnvn. 
had INVOERROUT INE halid 


Kehnehendkeatheaehatkeathnetheedheehheehheeheeedheehheehedheheedindheeheehheedheehshseeed 
100 IF BSC1)="”" THEN 110 ELSE 190 
118 CLS:PRINT"”GRAFIEKEN PLOTTEN MET DATU 
MINDEX”: PRINT STRINGSC3S, ”"*"): PRINT 
128 PRINT"”U kunt maximaal 3 verschillend 
e rubrie- ken invoeren.”:PRINT 
130 INPUT”hoeveel rubrieken wilt U gebru 
iken: ”;Q 
140 IF Q>3 THEN 90 
15@ FOR R=1 TO Q 
150 PRINT R;"e RUBRIEK: ”; 
178 INPUT BSCR) 
180 NEXT R 
190 REN …enavensvnnaennvannvaevvnnn.n 

** INVOEREN VAN DE WAARDEN ** 

….. …sscsvesesvsencnn . 
200 X=NN 
218 X=X+1:IF X>5@ THEN PRINT"BESTAND IS 
VOL !!:FOR J=1 TO SOO:NEXT J:GOTO 320 
et CLS: INPUT” DATUM: Cddmm jj) CXXXXXX=EIND 


230 IF ASCXI="XXXXXX" THEN NN=X-1:GO0TO 3 
18 

24@ FOR W=1 TO Q 

250 PRINT 
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250 PRINT:PRINT BSW); 
270 INPUT"Waarde="; ACX, u 
288 IF ACX,W>PP THEN PP=PP+180: F=F+1:GO 
TO 280 
230 NEXT w 
300 GOTO 210 
310 REN »enenenenvveenvvanvenvnnennn 
. HOOFD-MENU bais 
vancsanennvennnernnnnenennen 
32® COLOR 15,1,1 
330 SCREEN @:WIDTH 4@:CLS:PRINT TABC16) ; 
"ME N U”:PRINT TABC1S5);STRINGS(S,"-"):P 
RINT 


340 LOCATE 5,5:PRINT"C1J........ INVOEREN 
GEGEVENS" 

350 LOCATE 5,7:PRINIT"C2J........GEGEVENS 
OPSLAAN” 

360 LOCATE 5,9:PRINT"L3J........GEGEVENS 
INLEZEN” 

370 LOCATE S,11:PRINT"C4J........GRAFIEK 
EN PLOTTEN" 

380 LOCATE 5,13:PRINT”CSJ........PROGRAM 


MA BEEINDIGEN" 

3390 LOCATE S,21:PRINT"Toets Uw keuze in 

CC11/C51)” 

400 QS=INKEYS:IF Q$="" THEN 400 

419 IF Q$<”1” OR Q$>"”5"” THEN 400 

420 QQ=VAL COS) 

430 ON QQ GOTO S90,960,1330, 440, 1700 

HUD REM vevvevenvvaannennnancnenvnnen 
* DE GRAFIEKEN PLOTTEN *« 
……ssensecaavsonvesenvsennn..n. 

45@ FOR L=1 TO NN 

450 FOR M=1 TO Q 

470 PCL,MD=SS+INTCACL,MD/FD 

480 NEXT M 

430 NEXT L 

500 SCREEN 2 

518 T=@ 

528 CLS 


530 
540 
550 
560 
570 
580 
590 
600 
610 
520 
630 
640 
650 
660 
670 
5680 
630 
700 
710 
728 
730 
740 
750 
760 
770 
788 
730 
800 
818 
820 
830 
840 
850 
850 
B70 
880 
890 
300 
310 


OPEN”GRP:” FOR OUTPUT AS#1 
B=55 

LINEC@,0)-(B,23),15 

LINEC@, 47)-C255,47),15 
LINEC@, 23)-255,23),15 
LINEC@,71)-C255,71),15 
LINECO,95)-(255,95),15 
LINECO,119)-(255,119),15 
LINECO, 143)-C255,143),15 
LINEC@,167)-(255,157),15 
LINECB,@)-CB,167),15 
LINEC@,0)-C255,191),15,B 
PRESETC1, 15), 4: PRINT#1, "DATA" 


PRESETC23,2),4:PRINT#1, “TOT” 
FOR L=1 TO 4 

K=B+CL*HS5) 

LINECK, 12)-CK,23),15 

NEXT L 
PRESETCB7, 1,4: PRINTM1, CPP/4) 


PRESETC128,1), 4: PRINT#1, CPP/2) 
PRESETC171,1), 4: PRINT#1, CPP*. 75) 
PRESETC215,1), 4: PRINT#1,PP 
LINECB, 169)-C25,174),CC1),BF 
LINECB,176)-C25,182),CC2),BF 
LINECB, 184) -(25,1399),CC3),BF 
PRESETC32, 168), 4: PRINT#1, BSC1) 
PRESETC32, 176), 4: PRINT#1,BSC2) 
PRESETC32, 184), 4: PRINT#1 , B5C3) 
FOR L=1 TO 6 

D=7+CL®24) : T=T+1 

IF ASCT)="XXXXXX" THEN 910 
PRESETC2,D),1:PRINT#1,ASCT) 
G=0+CL*24) 


FOR M=1 TO Q 
LINECB,G)-CPCT,M),G+6), CCM), BF 

G=G+8 

NEXT M 

NEXT L 
PRESEIC135,176),1:PRINT#1,”TOETS CRE 


TURNI” 


St 


32® CLOSE#1 

930 QS=INKEYS:IF Q$="” THEN S20 

340 IF ASCCQS)=13 AND T<NN THEN 520 

950 IF ASCCQS)=13 THEN 310 ELSE 930 

GED REN vennen ee eee ee ee 
hed GEGEVENS OPSLAAN held 
…enunaannannnannnannnn.. 

97@ COLORIS, 4,4: CLS 

980 PRINT"”GEGEVENS OPSLAAN CCASSETTE OF 

DISKETTE)”: PRINT STRINGSC39, ”-"): PRINT 

3930 PRINT"Wilt U de gegevens opslaan op 

cassette of diskette 7”:PRINT 

1020 INPUT"CT) of CD) ‚QS 

18 IF Q$<>”T” OR Q$<>"”t” THEN IF Q$<>" 

D” OR Q$<>”d” THEN 970 

1820 PRINT:PRINT 

1039 INPUT”Onder welke NAAM moet de FILE 

worden opgeslagen :";KS$S 

1040 IF LENCKS)>6 THEN 1030 

1050 IF Q$="T” OR Q$="t” THEN 1070 

1060 IF Q$="D" OR Q$="d"” THEN 1100 

1278 MOTOR ON 

1988 OPEN"CAS:K$” FOR OUTPUT AS#1 

109® GOTO 1118 

1109 OPEN K$ FOR OUTPUT AS#1 

1118 PRINT#1,NN 

1120 PRINT#1,Q 

1130 PRINT#1,PP 

1148 PRINT#1,F 

1150 PRINT#1,NN 

1158 PRINT#1,Q 

1178 FOR M=1 TO NN 

1180 PRINT#1,ASCM) 

1198 FOR L=1 TO Q 

1200 PRINT#1,ACM, QD 

1210 PRINT#1,PCM,Q) 

1220 NEXT L 

1230 FOR L=1 TO Q 

1240 PRINT#1, ACM, Q) 

1250 PRINT#1,PCM,Q) 
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1250 NEXT L 

1270 NEXT M 

1288 FOR L=1 TO Q 

1290 PRINT#1,BSCL) 

1308 NEXT L 

13108 IF Q$="T"” OR Q$="t"” THEN MOTOR OFF 
132® CLOSE#1:GOTO 318 

1339 REN *venvenvanvenvaansenvvnn.n 

… GEGEVENS INLEZEN - 
. ……vanvannssnnn. ……... 

1340 COLORIS, 4, 4: CLS 

1350 PRINT"”GEGEVENS INLEZEN CCASSETIE OF 
DISKETTE)": PRINT STRINGSC39, ”-”): PRINT 
1358 PRINT"Wilt U de gegevens inlezen va 
n cassette of diskette ?”:PRINT 

1378 INPUT"CT) of CD) 5 

1380 IF Q$<>"T" OR Q$<>"t” THEN IF Q$<>” 

D” OR Q$<>"d” THEN 1340 

1390 PRINT:PRINT 

1400 INPUT”Onder welke NAAM moet de FILE 
worden ingelezen :";KS 

1410 IF LENCKS)>6 THEN 1400 

1420 IF Q$="T" OR Q$="t" THEN 1440 

1430 IF Q$="D" OR Q$="d"” THEN 1470 

1448 MOTOR ON 

1450 OPEN"CAS:K$"” FOR INPUT AS#1 

1462 GOTO 1480 

1470 OPEN K$ FOR INPUT AS#1 

1488 INPUT#1,NN 

1438 INPUT#1,Q 

1508 INPUT#1,PP 

1518 INPUT#1,F 

1528 INPUT#1 ‚NN 

1530 INPUT#1,Q 

15409 FOR M=1 TO NN 

1558 INPUT#1,ASCH) 

1560 FOR L=1 TO Q 

157@ INPUT#1,ACM, 0) 

1580 INPUT#1,PCM, OQ) 

1530 NEXT L 


1600 FOR L=1 TO Q 
1510 INPUT#1, ACM, 0) 

1628 INPUT#1, PCM, QD 

1530 NEXT L 

1640 NEXT M 

1659 FOR L=1 TO Q 

1550 INPUT#1,BSCL) 

1570 NEXT L 

1580 IF Q$="T" OR Q$="t"” THEN MOTOR OFF 


1569@ CLOSE#1:GOTO 310 
1709 REM **eevannennannenvnvnnnnnnn 


.…. EINDE PROGRAMMA hed 
…. 
1718 CLS: PRINT"PROGRAMMA-EINDE":PRINT S 
TRINGSC39, "-"): PRINT 
1720 PRINT”U wilt het programma beeindig 
en 7" 
1730 PRINT"Heeft U de gegevens al vastge 
legd op Cassette of Diskette 7” 
1740 PRINT:PRINT"”Als dit NIET nodig is, 
of al gebeurd is,toetst U dan CEJ=CEINDE 
je 
1750 PRINT:PRINT"In alle andere gevallen 
toets CRETURNI” 
1750 LOCATE @,21:PRINT"TOETS UW KEUZE IN 
: CEJ of CRETURNJ” 
1770 QS=INKEYS: IF Q$="" THEN 1770 
1780 IF Q$="E" OR QS="e" THEN END 
1790 IF ASCCQ$)=13 THEN 310 ELSE 1770 
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Nd 


LITERATUURONDERZOER 


Dit programma is , zoals de titel al doet 
vermoeden, bedoeld om tijdschriftartikelen te 
ontsluiten. 

U kunt aan elk artikel 5 trefwoorden toeken- 
nen. Deze trefwoorden zijn het belangrijkste 
onderdeel van elk literatuuronderzoek. 
Gebruik daarom steeds ‘standaard’ trefwoorden 
en maak van de gebruikte trefwoorden een 
lijst; de zgn. THESAURUS. In deze lijst mogen 
geen twee verschillende trefwoorden met een 
gelijke betekenis voor komen. 

U gebruikt er dan 1 en van het andere wordt 
dan een verwijzing gemaakt naar het tweede. 


Voorbeeld: 
Een artikel over programma's voor de MSX com- 
puter, kan de volgende trefwoorden krijgen: 


1. MSX-computers 

2. Programma's 

3. Software 

4. Microsoft Extended BASIC 
5. MSX-Basic 


In dit voorbeeld ziet U dat er enkele doublu- 
res in de toekenning van de trefwoorden voor 
komen. 
We spreken voor onszelf af dat we alleen voor 
ons belangrijke 'standaard’ trefwoorden ge- 
bruiken. 
We kiezen voor: MSX-Computers 

Software 

MSX-Basic 
Deze trefwoorden nemen we op in onze lijst 
van ’'standaard’-trefwoorden, de THESAURUS. 


De overgebleven trefwoorden die door ons niet 
als ’standaard’ zijn aangemerkt nemen we wel 
op in onze THESAURUS, maar nu met een 
verwijzing: 
Programma's ZIE: Software 
Microsoft Extended BASIC ZIE: MSX-Basic 


Door op deze wijze consequent alle synonie- 
men te laten verwijzen naar de door gekozen 
’standaard’-trefwoorden, kunnen we voorkomen 
dat we artikelen niest meer kunnen terugvinden 
in ons bestand. Tenslotte is het de bedoeling 
van dit programma literatuuronderzoek dat we 
alles over een bepaald onderwerp kunnen 
terugvinden. Bovendien wordt op deze manier 
een efficienter gebruik mogelijk van de S5 
trefwoorden dis ons ter beschikking staan. 


In dit programma kunt U bepaalde artikelen 
alleen opzoeken d.m.v. trefwoorden. Dus 
opzoeken op auteur of tijdschrift kan alleen 
door het hele bestand door te ‘bladeren’. 

In het voorbeeld dat hierna is afgedrukt 
waren drie artikelen ingevoerd. Deze hadden 
alle drie 1 trefwoord gemeen nl. MSX-Basic. 
Toen we dus op het trefwoord 'MSX-Basic' 
gingen zoeken verschenen dan ook al de drie 
artikelen op papier. 


Het programma: 
U kunt 100 artikelen invoeren in dit 
programma zoals dat hier in dit boek is 
afgedrukt. Hierbij is er rekening mee 
gehouden dat elk record 180 tekens mag 
bevatten. De eerste 50 tekens van elk record 
liggen vast, die zijn gereserveerd voor de S 
trefwoorden. Hieruit volgt dan logischerwijs 
dat elk trefwoord max. 10 tekens lang mag 
zijn. In de praktijk blijkt dit voldoende. 
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Voor de rest van het record blijven dan 130 
tekens over, dit blijkt voor de meeste arti 
kelen ruim voldoende te zijn. 
In het hierna afgedrukte voorbeeld komen we 
op: 

Record 1: 38 tekens 

Record 2: S2 tekens 

Recurd 3: 66 tekens 


U ziet dat 130 tekens ruim voldoende is, 

Door nu afkortingen te gebruiken voor de naam 
van het tijdschrift (mits U die zelf na- 
tuurlijk begrijpt) of de naam inkort, kunt U 
al veel tekens besparen. Ook jaargangen zoals 
1985 zou U kunnen schrijven als 85, 

Ontdekt U nu dat 130 tekens + 50 voor de 
trefwoorden voor Uw gebruik echt teveel is, 
dan kunt U het aantal artikelen uitbreiden. 


Als U vindt dat U aan B0 tekens voor het 
record + 50 voor de trefwoorden voldoende 
heeft dan zet U de lengte van elk record op 
130 tekens. U bespaart daardoor ruimte voor 
een extra 5000 tekens en kunt U 5000/130= 38 
artikelen meer opnemen. 

U dient dan de volgende aanpassingen te doen: 


regel 30: M=138 

regel 280: IF N>138 THEN N=138:..... 
regel 340: IF P>130 THEN .….….... 

regel 380: IF P>130 THEN . ° 
regel 1770: IF P>130 THEN .….... 


Verder zijn er geen aanpassingen nodig. 

Het programma is volledig menu-gestuurd; de 
keuzes uit het menu werken met INKEY$S zodat 
het bedieningsgemak optimaal is. Na een 
opdracht keert U altijd weer terug naar het 
hoof dmenu . 


Bij het artikelen-overzicht (keuze 3 uit het 
menu) kunt U door het hele bestand 'bladeren’ 
met behulp van de cursortoetsen '<' & '>', 
Verder is het programma voorzien van 
duidelijke REM-Statements, zodat het program 
ma goed te begrijpen is. 


Toepassingen: 

Bij studie:voor het verzamelen van literatuur 
voor studieprojecten, afstudeerop- 
drachten etc. 

Voor hobby:het verzamelen en rangschikken van 
de relevante literatuur. 


Verstandig is het om bij het toepassen van 
dit programma per onderwerp bijv. MSX Compu- 
ters een aparte File aan te leggen. 


Per ONDERWERP moet U dan wel weer een THESAU- 
RUS aanleggen, waar U zich dan strikt aan 
moet houden om een zo succesvol mogelijk ge- 
bruik van dit programma te maken. 


LITERATUURONDERZOEK OP TREFWOORD 


GEVONDEN LITERATUUR: 
Record: 1 

TITEL :MSX VEROVERT EUROPA 
AUTEUR: BOS ,W 


TIJDS :RAM 
JAAR :13985 
No. :18 


Blz :18-24 

GEVONDEN LITERATUUR: 

Record: 2 

TITEL :PROGRAMMEER TECHNIEKEN 
AUTEUR: DRUIJFF .F 

TIJDS :MSX MOZAIEK 

JAAR :1985 

No. HE) 

Blz 24-28 

GEVONDEN LITERATUUR: 

Record: 3 

TITEL :WERKEN MET DE VIDEORAM 
AUTEUR: IMMERZEEL .M.B. 

TIJDS :MSX COMPUTER MAGAZIN 
JAAR :1385 

No. eg 

Blz 40-41 
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18 REM K athaaheaheedheedhaheanetesheeinehaahechaehechsehsahsehsoheohnahsobsohsohsahsehsohse 
hekel LITERATUURONDERZOEK ied 
* MET TREFWOORDEN-INDEX ** 
sd VERSIE 1.8 MSX ed 
**(C)15855 Robert-J.Donkers ** 
…. …aaevnnnaasnnacssnennnn 

28 WIDTH 4 OLOR 15,1,1:KEYOFF 

30 CLEAR 139000:M=100 

4@ DIM ASCM),TSCII,LTCI) 

50 25=SPACESC39) : YE=-SPACESC28) 

59 N=1:F=1:C=@: II=1 

7@ DEFINT L‚Q,R‚X,2 


87 REN *enennnunnancenneennnvecrnnn 
…e KOOFDMENU aa 


…ennmnnnennnennn. ….….. 
30 CLS 
100 PRINT”L I TE RATUURONDE R 
20E K"”:PRINT STRINGSC39,”-"):PRINT 
110 EDCATE 5,5:PRINI®!.. 2e, Artikel 
invoeren” 
129 LOCATE. 5,2:PRINI'B, Pm Artikel 
afvoeren” 
138 LOCATE 5,9:PRINT"3,. >-----=-, Artikel 


en-overzicht” 


140 LOCATE S,11:PRINT"4, >-— ====Zoeken 
op trefwoorden” 

15@ LOCATE 5,13:PRINT"S. >-------- Litera 
tuurlijst Saven” 

16% LOCATE 5,15:PRINT"6. >= Litera 
tuurlijst Inlezen” 

170 LOCATE 5,17:PRINT"7. >-——------ Stoppe 


n met Programma” 

188 LOCATE S,21:PRINT"Toets Uw Keuze C[1 
3AE7IN An 1e 

190 QS=INKEYS:IF Q$="" THEN 190 

200 IF Q$<”1” OR QE>"7" THEN 190 

218 Q=VALCOS) 

228 ON GQ GOSUB 249,1950,810, 1280,2150,24 
2a,e2570 

230 GOTO 80 
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EHD REN **mveenennennenevenvnenenn.n 
hd INVOER-ROUTINE had 
…enennessenvvceeveneernvn..n. 
25@ CLS 
258 PRINT”L I TERATUURONDE R 
20 E K”:PRINT"INVOERROUTINE": PRINT STRI 
NG$C39, "—"): PRINT 
270 C=N:N=N+1:ASCCI=STRINGSCSS," "):P=S56 
280 IF N>108 THEN N=100:LOCATE 10,10:PRI 
NT"”BESTAND IS VOL !!!”:GOTO 630 
230 GOSUB 670 
300 FOR L=3 TO 10 
310 IF L=4 OR L=6 THEN 470 
320 LOCATE 12,L 
330 JS=YS: I=" 
340 IF P>200 THEN 460 
35@ INPUT I$ 
360 IF L=3 THEN IF LENCIS)>S@ THEN IS=L 
EFT$SCIS,S0):JS=Y$+YS 
370 IF L=3 THEN 390 
380 IF LENCIS)>20 THEN IS=LEFTSCIS, 20) 
390 IF IS=”" THEN IS=" * 
400 K=LENCIS) 
418 MIDSCJS,2,K+1)=IS 
420 C$=MIDSCIS,K,1) 
430 MIDSCIS,K,1)=CHRSCASCCCH) +128) 
HHD ASCC+1-F)=ASCC+I-F)+IS 
450 P=P+K 
458 LOCATE 12,L:PRINT JS 
470 NEXT L 
488 FOR L=14 TO 18 
430 IF L=14 THEN L1=1:GOTO 510 
500 Li=L1+11 
S1@ LOCATE 12,L 
528 JS=Y$: IS="" 
530 INPUT IS 
540 IF LENCIS)>11 THEN IS=LEFTSCIS,11) 
550 IF I$=""” THEN IS=" " 
560 K=LENCIS) 
570 MIDS(JS,2,K+1)=1I$ 


CS=MIDSCIS,K,1) 

MIDSCIS,K, 1)=CHRSCASCCCHI +128) 
MIDSCASCC+1-F),L1,K)=IS 

LOCATE 12,L:PRINT J$ 

NEXT L 

LOCATE @,22:PRINT” CMJ = MENU LAJ= 
EEN ARTIKEL" 

QS=INKEYS:IF QS$=""THEN 640 

IF QS="M” OR QS="m” THEN RETURN 

IF QS="A" OR QS="a"” THEN 240 ELSE 64 


LOCATE @,3:PRINT"TITEL gee 
LOCATE @,5:PRINT"AUTEURCS) 
LOCATE @,7:PRINT"TIJDSCHRIFT 
LOCATE @,8:PRINT"JAARCGANGD 
LOCATE @,9:PRINT”No. : 
LOCATE @,10:PRINT"Blz.-Blz. :” 
LOCATE @,12:PRINT"TREFWOORDEN:Elk ma 


x.18 letters !” 


740 


B20 
830 
20 


LOCATE @,13:PRINT"------e 
LOCATE O,14:PRINT"le 
LOCATE @,15:PRINT”2e 
LOCATE @,16:PRINT"3e 
LOCATE @,17:PRINT"te 
LOCATE 0,18: PRINT"Se 


RETURN 
REM *eveenenennnenvenccvnenvvnaen 


hed 
CLS 
PRINT"L I TERATUURONDER 
E K”:PRINT"ARTIKELEN-OVERZICHT": PRIN 


T STRINGSC33, ”-"): PRINT 


840 


IF C=@ THEN LOCATE 10,10:PRINT"BESTA 


ND IS LEEG !'!!"”:GOTO 1200 


850 
860 
870 
880 


R=1 

IF R<1 THEN R=1 

IF R>=C+1 THEN 1200 
GOSUB 670 


9 


839 LOCATE 29,1:PRINT"Record:";R;" * 
3900 FOR L=3 TO 18 

910 LOCATE 12,L:PRINT YS 

320 NEXT L 

330 LOCAIE Q,4:PRINT ZS 

340 P=S6 

950 FOR L-3 TO 10 

960 IF L=t OR L=6 THEN 1050 

870 LOCATE 12,L 

980 IF P>200 THEN 1060 

930 Q-ASCCHIDSCASCRI,P,‚ 19) 

1000 P=P+1 

1019 IF Q>127 THEN 1040 

1020 PRINT CHRSCO); 

1030 GOTO 980 

1040 PRINT CHRSCQ-128) 

1050 NEXT L 

1060 FOR L=14 TO 18 

1070 IF L=14 THEN L1=1:GOTO 1120 

1080 IF L=15 THEN L1=12 

1090 IF L=16 THEN L1=23 

1100 IF L=17 THEN L1=34 

1110 IF L=18 THEN L1=45 

1128 LOCATE 12,L 

1130 Q=ASCCHIDSCASCRI,„L1, 1) 

1140 Li=L1+1 

1150 IF Q>127 THEN 1180 

1160 PRINT CHRSCO); 

1179 GOTO 1130 

1180 PRINT CHRSCQ-128) 

1130 NEXT L 

1200 LOCATE @,21:PRINT”CMIJ=MENU C>J=DOOR 
— C<J=TERUG-BLADEREN” 

1219 IF wWw=1 THEN LOCATE 10,20: PRINT"”CWJ 
=WISSEN” 

1220 QS-INKEYS:IF QS=""THEN 1220 

1230 IF Q$="M" OR QS=”m” THEN RETURN 
1240 IF Ww=1 THEN IF Q$="W" OR Q$="w” TH 
EN 2070 

1250 IF ASCCQS)=239 THEN R=R-1:G0TO 860 


1250 IF ASCCQS)=28 THEN R=R+1:GOTO 860 
1278 GOTO 1220 
1289 REM **…mmnnnnnnnnnnnnnennen nn 
* ZOEKEN OP TREFWOORDEN ** 
Kenathaaehotkaothaaeeehsathaahnahaahsehnaksaheehneadisahsahsohasneekeehsaeed 

129@ CLS 

1300 PRINT"L I TERATUURONDER 
20E K”:PRINT"Z20EKEN OP TREFWOORD": PRI 
NT STRINGSC39, ”-"”): PRINT 

1310 IF C=@ THEN LOCATE 1@,10:PRINT”BEST 
AND IS LEEG !!!”:GOTO 1900 

1328 PRINT”U KUNT ZOEKEN OP EEN COMBINAT 
IE VAN DRIE TREFWOORDEN. ” 

1338 PRINT”OP HOEVEEL TREFWOORDEN WILT U 
ZOEKEN 7” 

134@ INPUT"AANTAL:”;T:IF T>3 THEN 1280 
1350 FOR Y=1 TO T 
1358 PRINT Y;:INPUT”e TREFWOORD :";TSCY) 
1378 LTCY)=LENCTSCY)): IF LTCYI>11 THEN T 
SCY)=LEFTSCTSCY),11D:LTCYI=11 

1380 HS=-CHRECASCCRIGHTSCTECYI,19)+128) 
1390 TSCY)=LEFTSCTECYI,LTCYI-1D+HE 

1400 NEXT Y 

1419 PRINT:PRINT"Wilt U de lijst van gev 
onden literatuur op het Scherm of op Pri 
nter P”:PRINT 

1420 INPUT”CSJ of CP] ";QS 

1430 IF Q$="S" OR Q$=" THEN 14650 

1448 IF Q$="P" OR Q$="p" THEN 1470 

1458 GOTO 1420 

1459 OPEN"CRT:” FOR OUTPUT AS#1:GOTO 148 
@ 

1479 OPEN"LPT: ” FOR OUTPUT AS#1 


1489 CLS 

1490 PRINT#1, ”"LITERATUURONDERZOEK OP TRE 
FWOORD” : PRINT#1,STRINGSC3S, "—") 

1508 FOR Z=1 TO C 

1518 U=@ 


1528 FOR X=1 TO T 
1530 FOR Q=1 TO S 
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1540 
1558 
1560 
1570 
1580 
1530 
1500 
U=U+1 
1610 
1528 
1530 
1540 
1650 
1550 
1678 
1580 
15638 
1700 
1718 
1720 
1730 
1740 
1750 
17650 
1770 
1780 
17398 
1800 
1810 
1820 
1830 
1840 
1850 
or ve 
1850 
1870 
ETURN 
1880 
1830 
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B5="" 
IF Q=1 THEN L1=1 

IF Q=2 THEN L1=12 

IF Q=3 THEN L1=23 

IF Q=# THEN L1=34 

IF Q=5 THEN L1=45 

IF TSCX)=MIDSCASC2I,LI,LTCXI) THEN 


NEXT Q 

NEXT X 

IF V=T THEN GOSUB 1660 

NEXT 2 

GOTO 1830 

CLS: PRINT#1, “GEVONDEN LITERATUUR: ” 
PRINT#1, "Record: ”;Z 
PRINT#L, "---=- ” 
P=56 

FOR L=1 TO 6 

IFL=1 THENPRINT#1,"”TITEL : 
IFL=2 THENPRINT#1, "AUTEUR: 
IFL=3 THENPRINI#1, "TIJDS : 
IFL=4 THENPRINT#1, "JAAR 
IFL=S THENPRINT#1, "No. 
IFL=6 THENPRINT#1, "Blz 

IF P>200 THEN 1850 
Q=ASCCHIDSCASC2),P,‚ 19) 
P=P+1 

IF Q>127 THEN 1830 
PRINT#1,CHRSCO) ; 


GOTO 1770 

PRINT#1,CHRSCQ-128) 

NEXT L 

LOCATE @,21:PRINT”toets CRETURN] vo 
rvolg” 

QS=INKEYS: IF Q$="" THEN 1860 


IF ASCCQ$)=13 THEN CLS:LOCATE @,@:R 


GOTO 1850 
CLOSE#1 


1308 LOCATE @,21:PRINT"CMJ = MENU CZJ=N 
OG EEN ONDERZOEK” 
1918 QS=INKEYS: IF Q$=""THEN 1910 
1320 IF Q$="M"” OR Q$="m” THEN RETURN 
1330 IF Q$="2" OR Q$="z" THEN 1280 
1849 GOTO 1918 
1959 REN ** hd Khheheehsdaehehseheksehekdaehsd 
* ARTIKEL AFVOEREN/WISSEN** 
…amnaansaennavnnnenT nn... 
1358 CLS 
1370 PRINT”L I TERATUURONDER 
ZOE K”:PRINT"ARTIKEL WISSEN/AFVOEREN" 
:PRINT STRINGSC39, ”-"): PRINT 
1388 IF C=@ THEN LOCATE 10@,10:PRINT"BEST 
AND IS LEEG !!!”:GOTO 2120 
13399 PRINT”Als U een ARTIKEL wilt WISSEN 
toets dan CRETURN] , zoniet dan CESCJ” 
2000 QS=INKEYS:IF Q$=""” THEN 2000 
2010 IF ASCCQS)=13 THEN WW=1:GOTO 2030 
2020 IF ASCCQS)=27 THEN WW=@: RETURN: GOTO 
2000 
2030 PRINT:PRINT"Om een artikel te wisse 
n gaan we eerst terug naar het literatu 
uroverzicht. U zoekt dan hier het ar 
tikel dat gewist moet worden en door de 
extra optie [WJ kunt U dan het gevonden 
artikel wissen!” 
2840 LOCATE 12,21:PRINT"Toets CRETURNI” 
2050 QS=INKEYS:IF Q$="" THEN 2050 
2050 IF ASCCQS)=13 THEN RETURN ELSE 2050 
2070 REN *envanvvannavenenevvanneenn 
… ARTIKEL WISSEN …. 
………... …evaensenaernvennn. 
2088 SWAP ASCR),ASCC) 
2090 ASCCI=ASCC+ID 
2190 C=C-1:N=eN-1:WW=G 
e119 CLS 
2128 LOCATE @,21:PRINT"” CMJ = MENU CwJ 
=Nog 'n ARTIKEL WISSEN” 
2130 OS=INKEYS: IF Q$=""THEN 2130 


ys 


2148 IF Q$="M" OR Q$="m” THEN RETURN 
2158 IF Q$=-"W" OR Q$=-"w" THEN 1950 ELSE 
2130 
21659 REM *eenennenverenenvnnnvennnn 
** LITERATUURLIJST SAVEN * 
vevvevsvecesssevceeveenvenne 
e178 CLS 
2188 PRINT”L I TERATUURONDER 
2 0 E K"”:PRINT"LITERATUURLIJST SAVEN":P 


RINT STRINGSC39, ”-"): PRINT 
2130 IF C=@ THEN LOCATE 18,10:PRINT"BEST 
AND IS LEEG !!!”:GOTO 2390 


2200 PRINT”WILT U WEGSCHRIJVEN NAAR TAPE 
DF DISC 7” 

2218 PRINT: INPUT"CT) of CD):";QS 

22e2@ PRINT:PRINT 

2238 INPUT”Onder welke NAAM moet de FILE 
worden weggeschreven :";K$ 

2240 IF LENCKS)>6 THEN KS=LEFTSCKS$,6) 
2250 IF Q$="T" THEN 2280 

2268 IF Q$="D" THEN 2310 

2270 GOTO 2160 

2288 MOTOR ON 

2230 OPEN"CAS:K$” FOR OUTPUT AS#1 

2300 GOTO 2320 

2318 OPEN K$ FOR OUTPUT AS#1 

2320 PRINT#1,C 

2330 PRINT#1,N 

2340 FOR Y=1 TO C 

235@ PRINT#1,ASCY) 

2360 NEXT Y 

237@ CLOSE#1 

2380 IF Q$="T"” THEN MOTOR OFF 

2390 LOCATE 14,21:PRINT"CMJ=MENU " 

2400 QS=INKEYS: IF Q$=""THEN 2400 

2410 IF Q$="M” OR QS="m"” THEN RETURN ELS 
E 2400 

24e REM ….nnnannnenenn ….. 


** LITERATUURLIJST INLEZEN*® 


Eherbseeehkeehankeeeheedeehsehachhsehehsedsehsehsehnedeehaaheehohaed 


2430 CLS 

2440 PRINT”L I TERATUURONDER 
20E K”:PRINT"LITERATUURLIJST INLEZEN" 
:PRINT STRINGSC39, "-”):PRINT 

2450 PRINT"WILT U INLEZEN VAN TAPE OF DI 

SC rn 

2460 PRINT: INPUT"CT) of (D):";QS 

2470 PRINT: PRINT 

2489 INPUT”Onder welke NAAM moet de FILE 
worden INGELEZEN :”;KS 

2490 IF LENCK$S)>6 THEN KS=LEFTSCK$,6) 

2500 IF Q$="T” THEN 2530 

2519 IF Q$="D" THEN 2560 

eseg GOTO 2420 

2538 MOTOR ON 

2549 OPEN"CAS:K$" FOR INPUT AS#1 

e255@ GOTO 2570 

25560 OPEN K$ FOR INPUT AS#1 

2578 INPUT#1,C 

2588 INPUT#1,N 

2590 FOR Y=1 TO C 

2508 INPUT#1,ASCY) 

2510 NEXT Y 

2628 CLOSE#1 

2538 IF Q$="T" THEN MOTOR OFF 

2548 LOCATE 14,21:PRINT"CMJ=MENU " 

25658 QS=INKEY$S: IF Q$=""THEN 2650 

2560 IF QS="M"” OR Q$="m” THEN RETURN ELS 
E 2650 

2670 REM …envnennessvasennennnnannnÛ. 

“* STOPPEN MET PROGRAMMA ** 
…….ssnaensencnensensnonnnn 

2688 CLS 

26390 PRINT”L I TE RATUURONDER 
ZOE K”:PRINT"STOPPEN MET PROGRAMMA”: P 
RINT STRING$C33, "—"): PRINT 

2708 LOCATE @,5:PRINT"U WILT STOPPEN MET 
HET PROGRAMMA 7" 


2710 PRINT”Heeft U de gegevens die U hee 
Ft inge- voerd al vastgelegd op Casset 
te of op Diskette P” 

2728 PRINT:PRINT”Als dit nog niet is geb 
eurd TOETST U CMJ voor terugkeer naar 
MENU, is het NIET NODIG de gegevens 
vast te leggen ofals dit al is gedaan , 
Toetst U CE] om programma te beeindigen 


2730 LOCATE @,21:PRINT"CMJ = MENU CEJ= 
EINDIGEN met programma” 

2740 QS=INKEYS:IF Q$=""THEN 2740 

2750 IF QS="M"” OR Q$="m” THEN RETURN 
2750 IF Q$="E" OR Q$="e" THEN END ELSE 2 
740 


ELANTENINFORMAT IE 


Dit programma is bedoeld voor het kleine be- 
drijf, dat met de MSX op snelle en eenvoudige 
wijze de gegevens over de klanten bij de hand 
wilt hebben. 

Met dit programma legt U de volgende gegevens 
over Uw klanten vast: 


Naam 

Adres 

Postcode + Woonplaats 
Telefoon 
Contactpersoon 

Soort Klant 
Debiteurennummer 
Opmerking 


Ket programma is ook weer volledig menuge- 
stuurd. 

Vanuit het Hoofdmenu kunt U direct naar de 
diverse routines springen en datgene uit- 
voeren dat U wilde doen. 

In het programma zijn een aantal soortcodes 
al ingevoerd. U moet die codes, die tevens 
dienen om de klanten te sorteren, uiteraard 
voor Uw eigen toepassing aanpassen. 

U kunt net zoveel soortcodes gebruiken als U 
wenst. U dient daarvoor de volgende regels 
aan te passen: regels 2160-2250 en regel 2390 
van de invoerroutine. 

In totaal kunt U per File, die U wegschrijft 
naar tape of disk, gegevens over 150 klanten 
opslaan. 

Het gehele programma is voorzien van duide- 
lijke REM-statements, zodat het programma 
eenvoudig te volgen is. 


vo 


19 REM *eennenunennrnenevenveenvnaenvenn 


had CLIËNTEN- INFORMATIE had 
head voor MSX computers hase 
**CC)1385 Robert-Jan Donkers ** 
hekel …anaannaannannnnnT ann... 

20 SCREEN @:WIDTH 4@:COLOR 15,1,1:KEYOFF 

30 CLEAR 15000 

4@ DIM S$C15O),NSCISG),ASCISG),PSC1ISG),W 

SC150),DECIS@),TSCISO),CECISO),0SC1S5SO) 

50 2Z$="Clië nten-Informatie Cc) 1985 

TERMINAL” 

69 REMevveneeveensnenecenceersseeneveenn 
“5=SOORT N=NAAM A=ADRES P=P.Code* 
*W=WOONPL. D=DEB.NR. T=TELEFOON * 
“C=CONTACIPERS. O=OPMERKING hd 
…ennnensnannnn 

70 A=0:B-0:GOTO 2459 

8% POKE 64683!,0@:CLS:PRINT 2$:PRINT STRI 

NGSC39, ”"-"): PRINT 

9@ LOCATE 15,4:PRINT"M E N U”:PRINT SPCC 

15, Semen ” 


100 LOCATE 5,7:PRINT"C1J......Gegevens i 
nvoeren” 

118 LOCATE 5,9:PRINT”[21......Gegevens v 
eranderen” 

120 LOCATE 5,11:PRINT”C3).,....Gegevens 

opzoeken” 

13@ LOCATE 5,13:PRINT"CHJ......Gegevens 

opslaan” a 

140 LOCATE 5,15:PRINT"[SJ......Gegevens 

inlezen” 

15@ LOCATE 5,17:PRINT”[6J......Printen a 
dresstroken” 

169 LOCATE S5,19:PRINT"[7]......Programma 
be indigen” 

178 LOCATE 5,22:PRINT"TOETS UW KEUZE IN 

EI EAM E73" 


18® QS=INKEYS: IF Q$="" THEN 180 
138 IF Q$<”1” OR QS>"”7" THEN 180 
208 Q=VALCOS) 


219 ON Q GOTO e20,720,1110,1480, 1800, 212 
0,2360 


LED REN *emmnnmennnnnnnnnnnnennnnnn.. 


. GEGEVENS INVOEREN … 

hed meennnensnnennnnTnn.... 
230 CLS:A=A+1: IF A=143 THEN PRINT" NA DI 
T ADRES GEHEUGEN VOL !!”:FOR Z=1 TO 1500 
:NEXT Z 
240 LOCATE @,0:PRINT 2$:PRINT STRINGSC39 
men) 
250 LOCATE 0, 
260 LOCATE @, 
270 LOCATE 
280 LOCATE @ 
230 LOCATE 0 
300 PRINI:PRINT STRINGSC39,”-") 
310 LOCATE @,11:PRINT"Deb.No. 
329 LOCATE @,13:PRINT"Telefoon 
330 LOCATE @,15:PRINT"Contact 
340 LOCATE @,17:PRINT"Opmerkin 
35@ LOCATE @,18:PRINT STRINGSC9, ”-") 
36@ LOCATE @,11:PRINT"”Deb.No.:” 
370 LOCATE 0,13:PRINT"Telefoon: ” 
38@ LOCATE @,15:PRINT"Contact 
390 LOCATE @,17:PRINT"Opmerking 
400 LOCATE @,18:PRINT STRINGSC3, "—") 
41® LOCATE 9,3: INPUT K$ 
H20 IF LENCKS)>24 THEN KS=LEFISCKS, 24) 
430 NSCAD=KS 
44@ LOCATE 9,4: INPUT KS 
450 IF LENCKS)>24 THEN KS=LEFTS(KS, 24) 
460 ASCA)=KS 
470 LOCATE 9,5: INPUT KS 
480 IF LENCKS)>7 THEN 470 
430 PSCA)=KS 
500 LOCATE 39,6: INPUT K$ 
510 IF LENCKS)>14 THEN KS=LEFTSCKS, 14) 
520 WSCAD=KS 
530 LOCATE 20,7: INPUT KS 


:PRINT”Naam :” 
:PRINT"”Adres :” 
:PRINT”P Code: ” 
:PRINT”Plaats: ” 
:PRINT”Soort CB,C,G,P,DJ 


548 IF LENCKS)>1 THEN 530 

550 SSCAI=KE 

S56@ LOCATE 10,11: INPUT KS 

570 IF LENCKS)>1@ THEN S6@ 

580 DECAI=KE 

530 LOCATE 10,13: INPUT KS 

608 IF LENCKS)>12 THEN 590 

518 TSCAI=KE 

5628 LOCATE 18,15: INPUT KS 

638 IF LENCKS)>24 THEN 6520 

640 C$CA)=KE 

565% LOCATE @,19: INPUT KS 

658 IF LENCKS)>80 THEN 650 

670 OSCA)=KE 

5808 LOCATE @,22:PRINT” CMJ=MENU EC 

J=Volgende KLANT" 

56390 QS=INKEYS:IF Q$="" THEN 690 

700 IF Q$="C" OR Q$="C" THEN 220 

710 IF Q$="M" OR QS="m" THEN 

720 REN *…enemnnvennnnennen 
* _ GEGEVENS VERANDEREN * 
…ucencssensvvnnnnen nn... 

730 CLS:PRINT Z$:PRINT STRINGSC3S, "-") 

740 PRINT"”VERANDEREN VAN GEGEVENS”: PRINT 

750 IF A=@ THEN LOCATE 10,10:PRINT"BESTA 

ND IS LEEG !!!”:FOR Y=1 TO 10900:NEXT Y:G 

OTO 80 

7568 INPUT"NAAM: ”;X$ 

770 IF LENCXS)>24 THEN XS=LEFTSCX$, 24) 

780 INPUT"PLAATS:”; YS 

7390 IF LENCYS)>14 THEN YS=LEFT$CY$, 14) 

820 B=1 

B1@ FOR K=1 TO 150 

820 IF NSCK)=X$ AND WSCK)=Y$ THEN GOSUB 

24+80:GOTO 840 

830 NEXT K:B=@:GOTO 12390 

840 LOCATE @,22: INPUT”Welk NUMMER wilt U 

veranderen P ";Q 

858 IF Q<1 OR Q>3 THEN 840 

850 LOCATE @,22:PRINT STRINGSC3S,” "”) 


1 


878 IF Q=1 TKEN LOCATE @,3:PRINT CHR$C23 
6):LOCATE 2,3: INPUT KS: IF LENCKS)>24 THE 
N KS=LEFTSCK$, 24) 

880 IF Q=1 THEN NSCK)=K$ 

830 IF Q=2 THEN LOCATE @,'t:PRINT CHR$SC23 
6):LOCATE 2,4: INPUT K$:IF LENCKS)>24 THE 
N KS=LEFTS(K$, 24) 

900 IF Q=2 THEN ASCK)=K$ 

310 IF Q=3 THEN LOCATE @,5:PRINT CHR$C23 
6):LOCATE 2,5:INPUT K$S:IF LENCKS)>7 THEN 
310 

920 IF Q=3 THEN P$SCK)=K$ 

930 IF Q=t THEN LOCATE @,6:PRINT CHR$(23 

56):LOCATE 2,6: INPUT KS: IF LENCK$)>14 THE 
N KS=LEFTSCKS$, 14) 

940 IF Q=4 THEN W$SCK)=K$ 

950 IF Q=S THEN LOCATE @,7:PRINT CHR$C23 

6):LOCATE 2,7: INPUT KS: IF LENCK$S)>1 THEN 
950 

360 IF Q=5 THEN S$CK)=K$ 

370 IF Q=6 THEN LOCATE @,11:PRINT CHR$(C2 
36):LOCATE 2,11: INPUT K$:IF LENCKS)>10 T 
HEN 370 

980 IF Q=6 THEN D$CK)=K$ 

990 IF Q=7 THEN LOCATE @,13:PRINT CHR$C2 
36):LOCATE 2,13: INPUT K$:IF LENCKS)>12 T 
HEN KS=LEFTSCKS, 12) 

1000 IF Q=7 THEN TSCK)=K$ 

1010 IF Q=8 THEN LOCATE @,15:PRINT CHRSC 
236):LOCATE 2,15: INPUT K$: IF LENCKS)>24 
THEN KS=LEFTSCKS$, 24) 

1029 IF Q=8 THEN C$(K)=K$ 

1930 IF Q=3 THEN LOCATE @,19:PRINT CHR$C 
236):LOCATE 2,19: INPUT K$: IF LENCKS)>80 
THEN KS=LEFTSCKS, 80) 

1040 IF Q=39 THEN OSCK)=K$ 

1950 LOCATE @,22:PRINT”Nog meer verander 
en deze klant (JJ/CNJ” 

1950 Q$=-INKEYS:IF Q$="" THEN 10650 

1970 IF Q$="J" OR Q$="j" THEN 840 


103 


1088 IF Q$="N" OR Q$="n" THEN LOCATE @,2 

2@:PRINT" Toets [RETURN] voor ME 

NU ":ELSE 1060 

1030 QS=INKEYS: IF Q$="" THEN 1090 

1189 IF ASCCQ$)=13 THEN 80 ELSE 12390 

1119 REM *evensanensvenevvennvenveevnn 
e. GEGEVENS OPZOEKEN „et 
…evovensveenesveovennnennsnen 


1128 B=@:CLS:PRINT 2$:PRINT STRINGSC39, ” 


”):PRINT 
1130 IF A=@ THEN LOCATE 10,10:PRINT"BEST 
AND IS LEEG !!!”:FOR Y=1 TO 1000:NEXT Y: 
GOTO 80 


1140 PRINT"Z20EKMOGELIJKHEDEN: ” 

115@ PRINT SPCC18);"C1J... Op NAAM” 
1160 PRINT SPCC10);"C2J... Op PLAATS” 
117@ PRINT SPCC10);"C3J... Op DEB.NO.” 
1188 PRINT SPCC10);”"[4)... Alle Klanten” 
113® LOCATE @,22:PRINT” TOETS UW KEUZE 
IN C1J t/m C43” 

1200 QS=INKEYS:IF Q$="" THEN 1200 

1218 IF Q$<”1” OR Q$>"”4” THEN 1200 

1228 Q=VALCQS) 

1230 ON Q GOTO 1249,1320, 1380, 1440 

1240 LOCATE @,12: INPUT"NAAM: ”;YS 

1250 IF LENCYS)>24 THEN YS=LEFTSCY$, 24) 
125@ FOR K=1 TO 150 

1270 IF NS(K)=Y$ THEN GOSUB 2480 

1280 NEXT K 

1290 CLS:LOCATE @,22:PRINT” EINDE van o 
verzicht !! TOETS CRETURNJ” 

1300 QS=INKEYS:IF Q$="" THEN 1300 

1310 IF ASCCQ$S)=13 THEN 80 ELSE 1300 
1320 LOCATE @,12: INPUT"PLAATS: "; YS 

1330 IF LENCYS)>24 THEN YS=LEFTSCYS$, 24) 
1340 FOR K=1 TO 150 

1358 IF W$SCK)=YS THEN GOSUB 2480 

1359 NEXT K 

1378 GOTO 1230 

1389 LOCATE @,12:INPUT"DEB.NO.:";Y$ 
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1398 IF LENCY$S)>10 THEN YS=LEFTSCYS$, 10) 

1420 FOR K=1 TO 150 

1410 IF DSCK)=YS THEN GOSUB 2480 

1420 NEXT K 

1430 GOTO 1290 

1440 CLS:FOR K=1 TO 150 

1458 GOSUB 2480 

1450 NEXT K 

1470 GOTO 1230 

1480 REN *emenennnnnnennenn venen... 
erke GEGEVENS OPSLAAN we 
KEdehekedeehdeehedeede hehehehe de hehekdedeehekehadeheed 

1430 POKE 546583!,255:CLS:PRINT 2$: PRINT 

STRING$C39, "-"):PRINT"GEGEVENS OPSLAAN”: 

PRINT 

1500 IF A=@ THEN PRINT"”BESTAND IS LEEG ! 

11”:GOTO 1770 

1519 PRINT”Wilt U wegschrijven naar TAPE 

of DISC 7” 

1520 PRINT: INPUT"”CTJ of CDJ :";Q$ 

1530 PRINT: PRINT 

1540 INPUT"Onder welke NAAM moet de FILE 

worden weggeschreven :"”;K$ 

1550 IF LENCKS)>6 THEN KS=LEFTS(KS,E) 

1568 IF Q$="T" THEN 1590 

1570 IF Q$="0" THEN 1520 

158% GOTO 1480 

15398 MOTOR ON 

1509 OPEN ”CAS:K$"” FOR OUTPUT AS#1 

1618 GOTO 1630 

1529 OPEN K$ FOR OUTPUT AS#1 

1530 PRINT #1,A 

1640 FOR Y=1 TO A 

1550 PRINT #1,S5$CY) 

165% PRINT #1,NSCY) 

1570 PRINT #1,ASCY) 

1688 PRINT #1,PSCY) 

15398 PRINT #1,W$CY) 

1700 PRINT #1,D$CY) 

1718 PRINT #1,TSCY) 


1720 PRINT #1,CSCY) 

1730 PRINT #1,05CY) 

1740 NEXT Y 

175@ CLOSE#1 

1760 IF Q$="T" THEN MOTOR OFF 

1778 LOCATE 14,22:PRINT"Toets CRETURNI” 
1780 QS=INKEY$: IF Q$="" THEN 1780 

1730 IF ASCCQ$)=13 THEN 89 ELSE 1770 
1890 REN *……meeunneenvvenensnsennnnn 


* _ GEGEVENS INLEZEN … 
vaonnnnennenvennnnenvnnnenenn 
1819 POKE 64683! ,255:CLS:PRINT 2$: PRINT 
STRING$SC39, ”-"):PRINT"GEGEVENS INLEZEN": 
PRINT 
1828 IF A=@ THEN PRINT"BESTAND IS LEEG ! 
t1”:;GOTO 2090 
1830 PRINT"Wilt U inlezen van TAPE of DI 
SCP 
1840 PRINT: INPUT"CTJ of CDJ :”;Q$ 
1858 PRINT:PRINT 
1859 INPUT"Onder welke NAAM moet de FILE 
worden ingelezen :”;K$ 
1870 IF LENCKS)>6 THEN KS=LEFTSCK$,6) 
1880 IF Q$="T" THEN 1910 
18399 IF Q$="D" THEN 1940 
1900 GOTO 1800 
13910 MOTOR ON 
1320 OPEN "CAS:K$"” FOR INPUT AS#1 
1839 GOTO 1950 
154@ OPEN K$ FOR INPUT AS#1 
1350 INPUT #1,A 
13969 FOR Y=1 TO A 
137@ INPUT #1,S5$CY) 
1388 INPUT #1,N$CY) 
133@ INPUT #1,ASCY) 
2008 INPUT #1,P$SCY) 
2010 INPUT #1,WSCY) 
2028 INPUT #1,D$CY) 
2030 INPUT #1,T$CY) 
2040 INPUT #1,C$CY) 


1u 


2050 INPUT #1,08CY) 

2050 NEXT Y 

2078 CLOSE#1 

2080 IF QS="T"” THEN MOTOR OFF 

203908 LOCATE 14,22:PRINT"Toets CRETURNI" 
2100 QS=INKEYS:IF Q$=""” THEN 2100 

2110 IF ASCCQS)=13 THEN 89 ELSE 20390 


2129 REM vennen en 


2130 CLS:POKE 64583!,255:PRINT 2$:PRINT 
STRINGSC39, "-”): PRINT"ADRESSTROKEN PRINT 
EN”: PRINT 

2140 IF A=@ THEN LOCATE 10,10:PRINT"BEST 


AND IS LEEG !!!”:FOR Y=1 TO 1000:NEXT Y: 
GOTO 88 

2150 PRINT"”Geef allereerst de KEUZE aan: 
”;PRINT 

2150 PRINT”CBJ......Boekhandels" 

2178 PRINT”CCJ......Computerwinkels” 
2188 PRINT”LGJ,.....Grossiers” 

2130 PRINT"[PJ]J......Partikulieren” 


2208 PRINT”[DJ......Diverse Klanten” 
2218 PRINT”CAJ.,.... Alle Klanten” 

e2e2@ LOCATE @,22:PRINT"Toets Keuze in CB 
J,CCJ,CGI,CPI,CDI,CAI” 

2230 QS=-INKEYS: IF Q$="" THEN 2230 

2240 IF Q$="B" OR Q$="C" OR Q$="A" OR OS 
="D"” OR Q$="G"” OR Q$="P" THEN 2250 ELSE 
ee230 

ee50 YS-Q$: IF Y$="A" THEN 2310 

2260 FOR K=1 TO 150 

2270 IF SSCK)=Y$ THEN LPRINT:LPRINT NSCK 


):LPRINT ASCK):LPRINT PSCK);” ”;WSECK) : 
LPRINT:LPRINT STRINGSCHO, ”—") 

2280 NEXT K 

22398 LOCATE @,22:PRINT” Toets [RE 


TURNJ voor MENU es 

2235 OS=INKEYS: IF Q$="" THEN 2295 
2300 IF ASCCQS)=13 THEN 89 ELSE 2295 
2318 FOR K=1 TO 150 


2328 IF N$SCK)="" THEN 2230 
2330 LPRINT:LPRINT NSCK):LPRINT ASCK):LP 
RINT PSCK) ”;WECK):LPRINT:LPRINT STR 
INGSCH@, "-") 
2340 NEXT K 
e3s@ GOTO e230 
2367 REN vervennnannneevensvanveenvenn 
** PROGRAMMA BEEINDIGEN ** 
…annnennenn. eunnannenvnn had 
2370 CLS:PRINT 2$:PRINT STRINGSC39,"-"): 
PRINT"STOPPEN MET PROGRAMMA”: PRINT 
2380 LOCATE @,S:PRINT”U wilt stoppen met 
het programma 7" 
23390 PRINT”Heeft U de gegevens die U hee 
Ft inge- voerd al vastgelegd op Casset 
te of Diskette 7" 
2400 PRINT:PRINT”Als dit nog niet is geb 
eurd TOETST U CMJ voor terugkeer naar 
MENU . Is het NIET NODIG de ge 
gevens vast te leggen of als dit al ge 
daan is, TOETST U CEJ om het programma 
te beeindigen.” 
2410 LOCATE @,22:PRINT"” CMJ=MENU EEl= 
EINDIGEN met programma” 
2420 QS=INKEYS: IF Q$="" THEN 2420 
2430 IF Q$="M" OR QS="m” THEN 80 
2440 IF Q$="E" OR Q$="e" THEN END ELSE 2 
420 
2450 CLS:POKE 64683! ,255:LOCATE 5,10: INP 
UT”Uw Code No:”;Y$ 
2460 IF Y$="S11GACTSP" THEN 80 
24708 LOCATE 5,2@:PRINT"GEEN TOEGANG": FOR 
K=1 TO S5Q0:NEXT K:END 
+80 REM …nnennnnennnnn 
* ALGEMENE SUBROUTINE VOOR: * 
kl ZOEKEN EN VERANDEREN ha 
aunannnneneennnennTnnn.... 
2438 CLS:PRINT Z$:PRINT STRINGSC39,”-") 
2500 LOCATE @,3:PRINT "1 
2510 LOCATE @,4:PRINT "2 
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esea 
2530 
2540 
2550 
2560 
2570 
2580 
2530 
2500 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
IF B=1 
LOCATE 


CMJ=MENU" 
2618 QS=-INKEYS: IF Q$="" THEN 2610 
2620 IF Q$="" OR QS="m" THEN 80 
2630 IF ASCCQ$)=13 THEN RETURN ELSE 2610 


@,5:PRINT ”3:”;PSCK) 


@,13:PRINT 
@,15:PRINT d 
@,19:PRINT "3: ”;OSCK) 

THEN RETURN 

@,22:PRINT” CRETURNJ=VERVOLG 


To 


TELEFOONINDE X 


Dit programma is niet zo maar een telefoon- 
nummer bestand er zijn een aantal 
aardigheidjes van MSX-BASIC ingebouwd die U 
ook in Uw eigen programma's zou kunnen toe- 
passen. 


Zo is er gebruik gemaakt van een aantal 
POKE-instructies die U overal zou kunnen 


gebruiken. 
o.a.: POKE 64683, 255 voor CAPS LOCK 
POKE 52387, 40 zet 40 karakters op 
een regel. 
POKE 62385,23 zet het scherm op 23 


regels, de bovenste 
regel wordt dan niet 
meer gebruikt. 


Op de bovenste schermregel zetten we in klei 
ne letters 'telefoonnummers bestand’. 

Door direct daarna POKE 62385,23 uit te 
voeren is deze regel niet meer te wissen door 
CLS. 

Daarna worden door de VPOKE opdrachten in 
regels 200-210 de kleine letters en de 
cijfers veranderd in INVERSE VIDEO karakters. 


Daarom zijn er in de diverse MENU's en 
Opdrachtregels kleine letters gebruikt. U 
moet de teksten met kleine letters za 
‘letterlijk’ mogelijk overnemen, anders 
schopt U het programma door elkaar. 


Ket programma houdt alleen de naam + tele- 
Foonnummer bij. 

Gebruik in de naam NOOIT een komma om 
onderscheidt te maken tussen gelijke achter- 
namen, maar gebruik dan een PUNT. ‚ anders 
krijgt U de Foutmelding: 'EXTRA IGNORED'. 


Ho 


Gebruik dus NOOIT: Jansen,H 
Jansen,P 


MAAR GEBRUIK: Jansen .H 
Jansen.P 


Zet ook altijd eerst de achternaam en dan de 
voorletters. 

In alle bestandsprogramma's in dit boek is 
het aan te bevelen in namen ,adressen,titels 
etc. GEEN KOMMA's maar PUNTEN te gebruiken. 

U kunt in met dit programma zo'n 400 telefoon- 
nummers opslaan. 

Zoeken kunt U op nummer of sleutelwoord, 

Het voordeel bij het zoeken is dat U beslist 
niet het volledige nummer hoeft in te voeren. 
Heeft U bijv. een kennis in VENLO, dan is 
voldoende om het netnummer '077' in te toet- 
sen en U krijgt op het scherm alle nummers 
van VENLO uit Uw bestand op het scherm. 
Toetst U alleen '07' in dan krijgt U alle 
nummers die beginnen met '07’, zoals de 
netnummers 071,073,075,076,077 etc. 


Zoeken op sleutelwoord werkt precies 
hetzelfde. U kunt een volledige naam invoeren 
maar ook volstaan met een aantal beginletters 
bijv. 'JAN’, 


U vindt dan bijv. JAN 0938-432156 
JANS 078-3215564 
JANSEN .H 634521 
JANSEN .P 0035-440044 
JANSSEN 020-8245517 
etc.etc. 


Toetst U alleen 'J' in dan komen alle namen 
op het scherm die beginnen met een 'J’. 

U ziet eenvoudiger zoeken kan bijna niet. 

Het programma is voorzien van duidelijke REM- 
statements, zodat U het programma goed kunt 
volgen. 


18 COLOR 15,4,4 

29 REN vam nnee ee ee 
** _ TELEFOONNUMMERS BESTAND ** 
nahnatadeeethnadnaseisetieadhsedhaathnchieehheahsoheehsohsanahhsoheebsaesheetheaheehsahschel 

IO REN venne 
hd INITIALISEREN bd 
Keekeksehehehaasehseheedeahhaehaeheehehsehsaeeheehaehsehseheedsehsehehedched 

4@ CLS 

5@ CLEAR 15000 

50 TAL=400:REM MAX. AANTAL NUMMERS 

7@ WIDTH 49 

89 KEYOFF 

30 COLOR 1,1,1 

100 AA=@ 

110 POKE 64683! ,255 

128 DIM NSCTAL),TSCTAL) ,NTCTALD 

130 PRINT "**eere telefoonnummers best 

and ….” 

140 POKE 62387! ,40 

150 SCREEN @ 

168 POKE 62385! ,23 

170 FOR F=1 TO 400 

188 NECF)="#";NTCFD=@ 

1390 NEXT F 

209 FOR F=776 TO 983:UPOKE BASEC2)+F,255 

—=UPEEKCBASEC2)+F-256):NEXT F 

219 FOR F=384 TO 463: UPOKE BASEC2)+F,255 

—UPEEKCBASEC2)+F):NEXT F 

2e@ COLOR 11,1,1 

2ID REM *…emmammnennmenenvennnmannmm. 
heh HOOF D-MENU … 
…uennennnnsssnnannmennw..…... 

248 CLS 

250 LOCATE 17,2:PRINT ”menu” 

250 PRINT:PRINT:PRINT TABC4); "nummers op 


278 PRINT:PRINT TABCH); "zoeken met sleut 


elwoorden---=> 2" 
288 PRINT:PRINT TABCH); "alle nummers pri 


LI 


290 PRINT:PRINT TABCH);”nummers invoeren 
> yr 
RINT TABCH);”nummers afvoeren 


319 PRINT:PRINT TABC4);”bestand laden-—— 
—=> 6" 
RINT TABC4);”bestand saven--— 
Zed 7" 
RINT:PRINT TABC11); "toets uw 


340 AS=INKEYS: 
350 IF A$<”1” 
350 Q=VALCAS) 
370 CLS 

380 ON Q GOTO 3390,480,700,840,1100,1320, 
1400 

JIP REN *mvenmnevnnnnnn….n….….…........ 


* ZOEKEN VAN EEN NUMMER asl 


weenenenennvevevenvnannensnene 


THEN 340 


335 W-@ 
400 IF AA<1 THEN LOCATE 10,10:PRINT "het 
bestand is leeg”:FOR F=1 TO 1000:NEXT F 
:GOTO 230 
418 LOCATE 3,6:5$="": INPUT "naam ";S$ 
420 IF LENCSS)<1 OR LENCSS)>25 THEN 410 
430 FOR F=1 TO AA 
4HO IF SS=LEFTSCNSCF),LENCSS)) THEN PRIN 
T:PRINT NSCF),”tel:";TS(F):Wel 
450 NEXT F 
450 IF W=@ THEN LOCATE 3,8:PRINT “deze n 
aam zit niet in het bestand” 
470 GOTO 1600 
480 REM ……nensenneveneenenennvennn. 
„* ZOEKEN MET SLEUTELWOORD ** 
vunenaunseeenvasnnenennnenneee 
430 IF AA<1 THEN LOCATE 18,10:PRINT "het 
bestand is leeg”:FOR F=1 TO 1000:NEXT F 
:-GOTO 230 
509 LOCATE 4,4: PRINT"WELKE SLEUTEL WILT 
U GEBRUIKEN ?” 
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510 PRINI:PRINT TABCB);"nAAM OF tELEFOON 
NUMMER 7” 

520 AS-INKEYS: IF A$="" THEN 520 

530 IF AS-”N" THEN CLS:GOTO 630 

540 IF A$<>"T"” THEN 510 

550 CLS 

560 LOCATE Q,2:S$="”": INPUT "WAT IS DE ST 
EUIEL ”;SS 

570 IF LENCSS)<1 OR LENCSS)>25 THEN 560 
580 PT-Q 

590 FOR F=1 TO AA 

600 IF SS=LEFISCTSCF),LENCSS)) THEN PRIN 
T NSCF);TABC25); TSCF):PRINI:PT=PT+1 

604 IF PI>9 THEN IF F<AA THEN PRINT:PRIN 
T TABC7);”return = VOLGENDE PAGINA.”:GOT 
0 608 

606 GOTO 610 

608 IF INKEYS<>CHRSC13) THEN 608 ELSE PT 
=0:CLS 

610 NEXT F 

629 GOTO 1600 

630 LOCATE O,2:5$="": INPUT "WAT IS DE SL 
EUTEL ”;S$ 

640 IF LENCSS)<1 OR LENCSS)>14 THEN 630 
645 PT=@ 

650 FOR F=1 TO AA 

650 IF SS=-LEFISCNSCF),LENCSS)) THEN PRIN 
T:PRINT NSCF);TABC25); TSCF) : PT=PT+1 

654 IF PT>9 THEN IF F<AA THEN PRINT:PRIN 
T TABC7);”return = VOLGENDE PAGINA. ”:GOT 
0 668 

656 GOTO 670 

658 IF INKEYS<>CHRSC13) THEN 668 ELSE PT 
=0:CLS 

670 NEXT F 

680 PRINT:PRINT 

690 GOTO 1600 


709 REM vem 
** ALLE NUMMERS PRINTEN head 


wanmemennnnnnnennnnnenntnanen 


71@ IF AA<1 THEN LOCATE 10,10:PRINT "het 
bestand is leeg”:FOR F=1 TO 1000:NEXT F 
:GOTO 230 

720 PT=O 

730 FOR F=1 TO AA 

740 PRINT NSCF);TABC25); TSCF) 

750 PRINT 

758 PT=PT+1 

770 IF PI>S3 THEN IF F<AA THEN PRINT: PRIN 
T TABC7);"return = VOLGENDE PAGINA.”:GOT 

0 790 

788 GOTO 800 

790 IF INKEYS<>CHR$SC13) THEN 790 ELSE PT 
=@: CLS 

800 NEXT F 

818 PRINT:PRINT 

B29 PT=Q 

830 GOTO 1600 

849 REM *…nvervvnneven ….nnenevvenn 

NUMMERS INVOEREN . 

……naveossenenevsecnenevennn.. 

85@ LOCATE 15,2:PRINT "invoeren" 

868 IF AA+1>TAL THEN LOCATE 11,9:PRINT ” 
het bestand is vol”:FOR F=1 TO 1000:NEXT 
F:GOTO 230 

878 LOCATE @,5: INPUT "naam ”;S$ 

888 IF LENCSS)<1 OR LEN(S$)>25 THEN 870 

B39@ LOCATE @,7: INPUT "telefoonnummer ";D 
5 

300 IF LENCDS)>15 THEN 890 

918 LOCATE 8,21:PRINT "GEGEVENS IN ORDE 

P Cj/M” 

320 AS=INKEY$S:IF A$="" THEN 920 

930 IF AS="N” THEN CLS:GOTO 870 

940 IF A$<>"J" THEN 920 

3950 AA=AA+1:NECAAI=SE: TSCAAI=DE 

350 LL=LENCNSCAAI): IF LL<B THEN NSCAA)=N 
SCAAI+SPACESCB-LLD 

970 XX=8B 

380 TT=-100"XX 


15 


16 


339 FOR F=1 TO XX 
1009 IF MIDSCNSCAAI,F,1)=CHRSC32) THEN 1 
040 
1018 NTCAAD=-NTCAA)+CTT*CASCCMIDSCNSCAAD , 
F‚19)-54)) 
1028 TT=TT/100 
1030 NEXT F 
1040 IF AA<2 THEN 10390 
1050 FOR F=AA TO 2 STEP -1 
1958 IF NICF)>=NTCF-1) THEN 1090 
1470 SWAP NSCF),NS(F-1):SWAP TSCF),TSCF- 
1):SWAP NTCF),NTCF-1) 
1080 NEXT F 
1999 GOTO 1600 
1199 REN**vanteenvnannnnnevnnsnenenn 
.… NUMMERS AFVOEREN hd 
…ennnmnsvvnnecnnnnrn.... 
1110 IF AA<1 THEN LOCATE 18,1@:PRINT "he 
t bestand is leeg”:FOR F=1 TO 1000:NEXT 
F:GOTO 230 
1128 LOCATE 16,2:PRINT "afvoeren” 
113® LOCATE @,7 
1148 INPUT "naam ”;S$ 
1150 IF LENCSS)<1 OR LENCSS)>25 THEN 113 
@ 
1160 FOR F=1 TO AA 
1170 IF SS=LEFTSCNSCF),LENCSS)) THEN 120 
[7] 
1189 NEXT F 
1190 PRINT:PRINT TABC3);"deze naam zit n 
iet in het bestand”:GOTO 1600 
1209 PRINT:PRINI:PRINT "naam”;TABC25); ”n 
ummer ” 
1210 PRINT:PRINT NSCF);TABC25) ; TSCF) 
1228 LOCATE 12,21:PRINT"AFVOEREN P Cj/n) 
1230 AS=INKEYS: IF A$="" THEN 1230 
1240 IF A$="N" THEN 1600 
1250 IF A$<>”J” THEN 1230 
1258 NSCF)="#":TSCFI="":NTCF)=@ 
1278 FOR I=F TO AA 


1280 SWAP NSCI),NSCI+1):SWAP TSCI),TSCI+ 

19:SWAP NTCID,NTCI+1) 

12398 NEXT I 

1308 AA=AA-1 

1318 GOTO 1608 

1329 REMtrnannennenennunnenensvannnen 
hd BESTAND LADEN das 
hdd eanmnmennnnnnnenven 


1325 LOCATE 11,10:PRINT "EVEN GEDULD A.U 


1330 OPEN "CAS:TELE” FOR INPUT AS 1 

1340 INPUT #1,AA 

1345 PRINT:PRINT TABCS); "ER WORDEN"; AA; ” 

NUMMERS GELADEN" 

135@ FOR F=1 TO AA 

1350 INPUT #1,NSCF),TSCF),NTCFD 

1370 NEXT F 

1380 CLOSE #1 

1399 GOTO 230 

1400 REM*vnuweunvvenuveneneneseenteen 
babel BESTAND SAVEN „s 
vannonnuvansveunscennnennnnen 

1405 IF AA<1 THEN LOCATE 10,18:PRINT "he 

t bestand is leeg”:FOR F=1 TO 1000:NEXT 

F:GOTO 230 

1418 LOCATE 3,7:PRINT "MET WELKE BAUDRAT 

E WILT U SAVEN 7” 

1420 LOCATE 13,10:PRINT "1 = 1280 BAUD” 

1430 PRINT TABC13);"2 = 2400 BAUD" 

1440 AS=INKEYS:IF AS$="" THEN 1440 

1450 IF AS<”1” OR AS>"2” THEN 1440 

1450 BR=VALCAS) 

1470 SCREEN ,,‚,BR 

1488 CLS 

1498 LOCATE 11,10:PRINT "EVEN GEDULD A.U 


1518 OPEN “CAS:TELE” FOR OUTPUT AS 1 
1520 PRINT #1,AA 

15309 FOR F=1 TO AA 

1540 PRINT #1,NSCF) 


1550 PRINT #1,TSCF) 

1560 PRINT #1,NTCF) 

1570 NEXT F 

1580 CLOSE #1 

1590 GOTO 230 

15600 LOCATE 8,21:PRINT “TERUG NAAR MENU 
P C/M ” 

1619 AS=INKEYS:IF A$="" THEN 1610 
1620 IF A$="J” THEN 230 

1530 IF A$<>"N” THEN 1610 

1640 GOTO 370 


BURO AGENDA 


Zoals de titel van dit programma reeds doet 
vermoeden, is dit de gecomputeriseerde ver- 
vanger van de bekende kantooragenda. 

U stuurt via het hoofdmenu het programma. 

Er zijn de volgende mogelijkheden: 

Notitie maken 

Dag uit agenda op het scherm 

Agenda saven 

Agenda inlezen 

Dag uit agenda wissen 

Stoppen 


DU WI 


Als U begint met het programma, wordt U eerst 
naar de datum van vandaag gevraagd. 

Nu komt U in het hoofdmenu en kunt U notities 
maken in de agenda. 

Allereerst geeft U de datum van de dag, waar- 
voor de notities gemaakt moeten worden. 

Zit die datum al in de agenda, dan verschijnt 
de agenda voor die dag op het scherm en kunt 
U er notities bijmaken of veranderen. 
Daarnaast heeft U in dit programma ook nog de 
mogelijkheid om een bepaalde dag te schrap- 
pen. 

U kunt kris kras door elkaar verschillende 
datums invoeren, het programma zorgt er zelf 
voor dat alle datums keurig op volgorde komen 
te staan, zodat U bij het doorbladeren van de 
agenda een keurig overzicht krijgt van alle 
afspraken en notities. 

Heeft U een nieuwe agenda gemaakt en U wilt 
die opslaan op cassette of diskette dan moet 
U eerst de oude agenda van de cassette resp. 
diskette verwijderen omdat de nieuwe agenda 
met dezelfde naam wordt weggeschreven. Bij 
een cassette kunt U gewoon de band 


terugspoelen en de nieuwe agenda over de 
andere heen opnemen bij diskette moet de 
agenda verwijderd worden met: KILL "agenda”. 
Als U met diskettes werkt moet U een aanpas- 
in het programma doen en wel de volgende: 


Voeg de volgende regel toe: 
1875 KILL “agenda”: FOR Q=1 TO SOO:NEXT Q 


Door deze regel zal eerst de oude agenda van 
de schijf verwijderd worden en daarna wordt 
de nieuwe agenda weer op schijf gezet. 

Na elke opdracht keert U weer terug naar het 
hoofdmenu door toets ’M' in te drukken of dat 
gebeurt automatisch zoals na het wegschrijven 
en inlezen. 

Het programma is van duidelijke 
REM-statements voorzien, zodat de opbouw van 
het programma U snel duidelijk zal zijn. 


10 REM “eenenmennveenenennsenenenesene 


En BURO-AGENDA U1.@ hesd 
**CC)13985 Robert-Jan Donkers** 
…uasunmaunenesavaauuwssesannn nn. 
2@ SCREEN @:WIDTH 4@:COLOR 15,1,1:KEYOFF 
30 CLEAR 15000 
4@ N=5O:REM aantal dagen voor agenda 
5@ DIM ASCN),DSC18),BECID 
69 YS=SPACES(39):C=Q 
70 Z5=SPACESC34) 
89 CLS:INPUT"geef de datum van vandaag: 
Cdd-mm-3J4) ;";FS 
0 IF LENCFS)<>10 THEN 80 


199 REN *…eevveevveevvenevceenvennnnnn 


… HOOFDMENU . 
…eanvennsssvecenvenven.n..... 
110 CLS:PRINT”BURO-AGENDA”: PRINT STRINGS 
C39,"-"): PRINT: PRINT STRINGSC39, "—") 
120 LOCATE 25,0:PRINT">>> ”;FS$ 
130 LOCATE 30,2: PRINT”HOOFDMENU” 


140 W=D 

150 LOCATE 5,7:PRINT"C1J....... Notities 
maken” 

158 LOCATE S5,9:PRINT"C2J....... Dag uit a 
genda op scherm” 

178 LOCATE S,11:PRINT”C3J.....….. Agenda S 
aven” 

188 LOCATE S5,13:PRINT"CHJ....…. « Agenda 1 
niezen” 

138 LOCATE S,15:PRINT"CSJ....... Dag uit 
agenda wissen” 

288 LDCATE S5,217:PRINT"CBI.. …… « Stoppen 


met programma” 

210 LOCATE S5,22:PRINT"Taoets Uw keuze in 
EIN EA EGI 

220 OS=-INKEYS:IF Q$="” THEN 220 

230 IF Q$<”1” OR Q$>"6” THEN 220 

248 Q=VALCOS) 

258 ON Q GOTO 1330,360,1870,2080,1740, 22 


122 


268 LOCATE @,4:PRINT"23900: ” 
270 LOCATE @,6:PRINT"1000: 
288 LOCATE @,8:PRINT"1100: ” 
2390 LOCATE @,10:PRINT"1200:” 
300 LOCATE @,12:PRINT"1300: " 
318 LOCATE @,14:PRINT"1400: ” 
328 LOCATE @,16:PRINT"1500: ” 
330 LOCATE @,18:PRINT"”1600: ” 
340 LOCATE Q,20:PRINT"N.B,:" 
35@ RETURN 

IED REN “enenaesnenverennnernnnnnen.n 


** Notities op het scherm ** 
………nnnn K edehatheedheheatheatheeheheehehechsehhadd 
370 CLS: PRINT"”BURO-AGENDA": PRINT STRINGS 
(39,”-"):PRINT: PRINT STRINGSC39, "-") 
38@ LOCATE 139,2:PRINT"AGENDA OP HET SCHE 
Rm” 
3390 IF C=@ THEN LOCATE 5,8: PRINT "AGENDA 


IS NOG LEEG !!!”:FOR Y=1 TO 1900:NEXT Y: 

GOTO 100 

400 LOCATE 5,8:PRINT"C1J.....AGENDA raad 
plegen” 

#10 LOCATE 5,10:PRINT"C2J..... Bepaalde D 
AG raadplegen” 

420 LOCATE 5,12:PRINT”C3J.....Terug naar 
Hoof dmenu” 

430 LOCATE 5,22:PRINT"Toets Uw keuze in 
C1J t/m C33” 


440 QS=INKEYS:IF Q$="" THEN 44@ 
450 IF Q$<”1” OR Q$>"3"” THEN 440 
450 Q=VALCQS) 

470 ON Q GOTO 480,71, 100 

480 FOR Y=8 TO 22:LOCATE @,Y:PRINT Y$:NE 
XT Y 

4390 GOSUB 250 

500 FOR K=1 TO C 

510 ES=LEFTSCASCK), 10) 

52® LOCATE 19,0:PRINT">>> ";ES 
530 P=11 

540 L=t 


550 
560 
570 
580 
590 
500 
610 
520 
630 


LOCAIE 5,L: 
Q=ASCCHIDSCASCKI ,P‚ 1) 

P=P+1 

IF Q>127 THEN 610 

PRINT CHRSCQ); 

GOTO 559 

PRINT CHRSCQ-128) 

L=L+1:1IF L=22 THEN 630 ELSE 550 
LOCATE 5,22:PRINT"Toets CRETURN] voo 


r volgende dag” 


640 
650 
550 
5670 
580 
5630 
700 
710 


QS=INKEYS: IF Q$="" THEN 540 

IF ASCCQ$)=13 THEN 650 ELSE 640 

FOR Y=4 TO 22 

LOCATE 5,Y:PRINT 2$ 

NEXT Y 

NEXT K 

GOTO 100 

FOR Y=8 TO 22:LOCATE @,Y:PRINT Y$:NE 


XT Y 


728 
tum 
730 
740 
750 
7608 
770 
788 
790 
800 
810 
820 
830 
840 
850 
860 
870 
B8@ 
830 
300 
318 


LOCATE @,8: INPUI”Geef de gewenste da 
Cdd-mm-4J39):”";GS5 

IF LENCGS$)<>10 THEN 720 

LOCATE @,8:PRINT YS:PRINT YS 

FOR K=1 TO C 

ES=LEFTSCASCK), 10) 

IF E$=G$ THEN 800 

NEXT K 

GOTO 1300 

GOSUB 250 

BS=ASCK) 

L=4 

D=0:P=11 

D=D+1:DSCDI="" 

LOCATE S,L: 

Q=ASCCHIDSCBS,P‚ 19) 

P=P+1 

IF Q>127 THEN 910 

DSCD)=-DECD)+CHRSCQI: PRINT CHRSCO); 

GOTO 860 

DSCD)=D$ CD) +CHRSCO) : PRINTCHRSCQ-128) 


328 L=L+1:IF L=22 THEN 930 ELSE 840 
930 LOCATE 1,22:PRINT"Toets CMJ=MENU 
ENJ=Nog 'n Notitie” 

940 QS=INKEYS:IF Q$="" THEN 940 

950 IF Q$="m" OR Q$="M” THEN 100 

360 IF Q$="N" OR Q$="n”" THEN 370 ELSE 94 

@ 

370 REN … venvaasvseesvenvsnnen 
** Toevoegen van 'n NOTITIE ** 
…eemeeevvnenvsenensnnnanennnnn 

980 LOCATE @,22:PRINT” CRETURNJ=Notiti 

e blijft onveranderd ” 

390 L=t;B=5:P=11 

1409 FOR D=1 TO 18 

1010 15=”"”:JE=-SPACESC34) 

1829 LOCATE B‚L:PRINT CHR$C202) 

1030 QS=INKEYS:IF Q$=""” THEN 1030 

1040 IF ASCCQ$)=13 THEN 1090 

1050 I$=1$+Q$ 

1859 LOCATE S5,L:PRINT IS 

1070 B=B+1 

1288 GOTO 1020 

1090 I=LENCIS) 

1100 IF I=@ THEN 1180 

1112 LOCATE B,‚L:PRINT” ” 

1128 CS=MIDSCIS, 1,1) 

1130 MIDSCJS,2,I+1)=IS 

1140 MIDSCIS, I, 1)=CHR$CASCCCH) +120) 

1158 DSCD)=IS 

1159 LOCATE 5,L:PRINT JS 

117@ GOTO 1230 

1188 LOCATE B,L:PRINT CHR$C32) 

1190 E=LENCDSCD)) 

1209 C$=MIDSCDSCD,E, 1) 

1218 GS=MIDSCDECD),1,E-1)+CHRECASCCCH)-1 

28) 

1228 LOCATE S,L:PRINT G$ 

1230 B=5:L=L+1 

1240 NEXT D 

125@ ASCK)=LEFTSCB$, 10) 


1250 
1270 
1280 
1230 
1300 
t in 
1314 
1320 
1330 


1340 
$(39 
1350 
ES” 

1350 
1370 


FOR D=1 TO 18 

ASCKI=ASCKI+DECDD 

NEXT D 

GOTO 109 

LOCATE 5,8:PRINT”Deze datum zit nie 


de agenda !!” 

FOR Y=1 TO 1000:NEXT Y 

GOTO 100 

REM vennen eee 
held Notities maken bed 
Kdaadhaathaalkaakeehhsohetheahsoheeheedheeheehscheaheehheehsoheehneheahecheehselechedt 

CLS: PRINT ”BURO-AGENDA”: PRINT STRING 


‚”="):PRINT:PRINT STRINGSC39, ”"-”) 


LOCATE 20,2:PRINT”INVOER VAN NOTITI 

C=C+1 

LOCATE 5,8: INPUT”Datum: Cdd-mm-34 49) 
‚QS 

IF LENCQS)<>10 THEN 1370 

FOR Y= 1 TO C-1 

IF LEFTSCASCY),10)=Q$ THEN 1630 

NEXT Y 

ASCCI=ASCCI+OS 

LOCATE 25,0:PRINI”>>> ”;QS 

LOCATE 5,8:PRINT YS 

GOSUB 2560 

FOR L=4 TO 21 

LOCATE 5,L 

JS=SPACESC34D: 15="" 

INPUT 15 

IF 1$="" THEN I5=" " 

K=LENCIS) 


MIDSCJS,2,K+1D=15 
CS-MIDSCIS,K,‚ 1) 

MIDSCIS,K, 19=CHRSCASC(CS) +128) 
ASCCI=ASCCI+IS 

LOCATE S,L:PRINT JS 

NEXT L 

IF C>1 THEN GOSUB 1670 


1598 LOCATE 5,22:PRINT”Toets CMJ=Menu C 

Al=Andere Dag” 

1500 Q$=INKEYS: IF Q$=”” THEN 1500 

1518 IF Q$="M” OR Q$="m"” THEN 100 

1520 IF Q$="A”" OR Q5="a” THEN 1340 ELSE 

1500 

1539 REM *enmannenannnnnnvenmmennmnnnnn 
*deze dag zit al in de agenda* 
amwwenmenennn.nnn..….... 

1549 C=C-1:G$=-QS 

1658 LOCATE 25,@:PRINT">>> ";Q$ 

15568 GOTO 740 

1679 REM **emenenenennnnenennneennmnn. 


** agenda op datum zetten ** 
…aennerseennnenvennnnr..... 

1680 GS=LEFTSCASCCH, 10) 

1690 FOR Y=1 TO C 

1700 C$=LEFT$SCASCY), 10) 

1718 IF C$>G$ THEN SWAP A$CC),ASCY):GOTO 

1580 

1728 NEXT Y 

1730 RETURN 

1740 REM Kaahnathnadhachhnahkchhnadeeheaheedksosaeeadeeheatheohkeothechhseheeheeachsohschhaesal 
* Dag uit agenda verwijderen * 
Knehnatheadadatkeathaahaadetksotkshseadheedheakeaeetieadheolkeaheoaahhechheehehsahsahhsakse 

175@ CLS: PRINT"BURO-AGENDA”: PRINT STRING 

$C39,”-”):PRINT: PRINT STRINGSC39, ”"-") 

175@ LOCATE 13,2:PRINT”DAG UIT AGENDA WI 

SSEN" 

1770 IF C=@ THEN LOCATE 5,8: PRINT"”AGENDA 

IS NOG LEEG !!!”:FOR Y=1 TO 1000:NEXT Y 

:GOTO 100 

1788 LOCATE @,8:INPUT"Geef de datum Cdd- 

mm-Jjjj) ”;G$ 

1790 IF LENCGS)<>1@ THEN 1750 

1808 FOR Y=1 TO C 

1819 C$=LEFTSCASCY), 10) 

1820 IF C$=-G$ THEN ASCY)="":W=l 

1830 IF ASCY)="" THEN SWAP A$SCY),ASCY+1D 

1840 NEXT Y 


1858 IF W=l THEN C=C-1 
186@ GOTO 100 
1870 REN *veernevecnnennvvunvvennern.n 


… Agenda saven haal 
… ……nnnannnnnnns 
1888 CLS: PRINT”BURO-AGENDA”: PRINT STRING 
$C39,"-"):PRINT:PRINT STRINGS(39, ”-”) 
1899 LOCATE 139,2:PRINT"AGENDA WEGSCHRIJU 
EN” 
13900 IF C=@ THEN LOCATE 5,8: PRINT ”AGENDA 


IS NOG LEEG !!!”:FOR Y=1 TO 1000:NEXT Y 
:GOTO 100 
131@ LOCATE 5,8:PRINT"C1J.....Wegschrijv 
en naar TAPE" 
1328 LOCATE 5,10:PRINT"C23..... Wegschrij 


ven naar DISC” 

1938 QS=INKEY$S: IF Q$="" THEN 1930 

1940 IF Q$="1"” THEN 1958 

1959 IF Q$="2"” THEN 1970 ELSE 1930 

136@ LOCATE S5,10:PRINT 2$:GOTO 18980 

1397@ LOCATE 5,8:PRINT 2$ 

1380 IF Q$="”1” THEN OPEN"cas:agenda” FOR 

OUTPUT AS#1:GOTO 2000 

1939 OPEN "agenda” FOR OUTPUT AS#1 

2000 IF Q$="1" THEN MOTOR ON 

2018 PRINT #1,C 

2828 FOR Y=1 TO C 

2030 PRINT #1,ASCY) 

2040 NEXT Y 

2050 CLOSE #1 

2058 IF Q$="1" THEN MOTOR OFF 

2070 GOTO 100 

2089 REM *…*…veenvvvenvnvennennvvnnnÛnn 
bead Agenda inlezen aise 
…nnn ennn ennen ennen 

2030 CLS: PRINT”BURO-AGENDA": PRINT STRING 

$C39,"-"):PRINT:PRINT STRINGSC39, ”"-") 

2100 LOCATE 19,2:PRINT"AGENDA INLEZEN" 

2110 LOCATE 5,8:PRINT"C1J.....INLEZEN va 

n TAPE” 


2128 LOCATE S,18:PRINT"[21..... INLEZEN v 

an DISC” 

2130 Q$-INKEYS: IF Q$-”" THEN 2130 

2140 IF Q$="1” THEN 21658 

2150 IF Q$="2"” THEN 2170 ELSE 2130 

2150 LOCATE S5,1@:PRINT Z$:GOTO 2180 

2170 LOCATE 5,8:PRINT Z$ 

2180 IF Q$="1” THEN OPEN"cas:agenda” FOR 
INPUT AS#1:GOTO 2200 

2190 OPEN “agenda” FOR INPUT AS#1 

2200 IF Q$="1" THEN MOTOR ON 

2218 INPUT #1,C 

2eed FOR Y=1 TO C 

2230 INPUT #1,ASCY) 

2240 NEXT Y 

e2e25@ CLOSE #1 

2260 IF Q$="1" THEN MOTOR OFF 

2270 GOTO 100 


2287 REN „…veveevsveeevcnensvvcvcvnnrnen 
** Stoppen met Programma ** 
aenveensescsserssnsnennnnnn.n 

2230 CLS:PRINT"”BURO-AGENDA": PRINT STRING 

$C33,”-"):PRINT: PRINT STRINGSC33, "-") 

2300 LOCATE 19,2:PRINT"STOPPEN MET PROGR 

AMMA” 

2310 LOCATE @,8:PRINT"”U wilt stoppen met 

het programma 7”:PRINT 

2328 PRINT”Als U iets in de agenda veran 

dert heeft is het verstandiger om deze a 

genda eerstop te slaan op Tape of Disc ! 

11 ”:PRINT 

2330 PRINT”Als dit niet nodig is of als 

U dit al gedaan heeft, Toetst U: CE)": 

PRINT 

2340 PRINT”In alle andere gevallen toets 

t U CMJ voor terugkeer naar het Hoofd 

menu |” 

2350 LOCATE @,22:PRINT” Toets Uw keuze i 

n: CEJ of CMJ” 


2360 QS=INKEYS:IF Q$="" THEN 2360 


2370 IF QS="M" 
2380 IF Q$="E" 
360 

23390 GOTO 100 


OR QS="m"” 
OR QS="e" 


THEN 100 
THEN END ELSE 2 


AANTEKENINGEN 


AANTEKENINGEN 


AANTEKENINGEN 


TERITINAL 


WERKEN MET DE MSX COMPUTER; 
PRAKTIJKPROGRAMMA'S 


De MSX computers kunnen zich verheugen in een steeds 
toenemende belangstelling, mede dankzij het feit dat er nu 
eindelijk een standaard voor homecomputers is ontwikkeld. 
Dit boek geeft de gebruiker kennis te maken met allerlei prak- 
tijkgerichte programma’s. Een ideaal boek voor beginners die 
willen ontdekken hoe met gegevens moet worden gemani- 
puleerd om een bepaald resultaat te krijgen. 

Daarom zijn er een aantal algemeen bruikbare programma’s 
opgenomen zoals een Kaartenbak-programma, een Tele- 
foonklapper met uitgebreide zoekmogelijkheden, een huis- 
houdboekje enz. 


De programma’s zijn allemaal geschreven in MSX-BASIC en 
geschikt voor alle merken MSX, o.a. SONY, PHILIPS, AVT, 
SPECTRAVIDEO, SANYO, TOSHIBA, GOLDSTAR, enz. 


Terminal Software Publicaties is lid van de MSX Werkgroep 
Nederland. 


TERMINAL SOFTWARE PUBLICATIES 


